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WHY THE MICROSOFT 
RAMCARD MAKES OUR SOTO 
AN EVEN BETTER IDEA. 



Memory — you never seem to have quite 
enough of it. 

But if you're one of the thousands of Apple 
owners using the SoftCard, there's an economical 
new way to expand your memory dramatically. 

16K ON A PLUG-IN CARD. 

Microsoft's new RAMCard simply 
plugs into your Apple II,® and adds 16k 
bytes of dependable, buffered 
read/write storage. 

Together with the SoftCard, 
the RAMCard gives you a 56k 
CP/M® system that's big enough 
to take on all kinds of chores that 
would never fit before (until now, 
the only way to get this much 
memory was to have an Apple 
Language Card installed). L 

GREAT SOFTWARE: 
YOURS, OURS, OR THEIRS. 

With the RAMCard and [*, 

SoftCard, you can tackle large- 
scale business and scientific 
computing with our COBOL and 1.. 
FORTRAN languages. Or greatly t— 
increase the capability of CP/M i 



applications like the Peachtree Software account- 
ing systems. VisiCalc™ and other Apple software 
packages can take advantage of RAMCard too. 

And RAMCard gives you the extra capacity to 
develop advanced programs of your own, using the 
SoftCard and CP/M. Even with the RAMCard in 
_ place, you can still access your ROM BASIC 
and monitor routines. 

JOIN THE SOFTCARD 
FAMILY. 

The RAMCard is just the 
latest addition to the SoftCard 
family — a comprehensive sys- 
tem of hardware and software 
that can make your Apple more 
versatile and powerful than you 
ever imagined. 

Your Microsoft dealer has all 
the exciting details. Visit him 
soon, and discover a great idea 
that keeps getting better. 

Microsoft Consumer Products 

10700 Northup Way 

Bellevue, WA 98004 

206-828-8080 
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SoftCard, RAMCard and Microsoft are traden 
of Microsoft, Inc. Apple II is a registered 
trademark of Apple Computer Inc. Z-80 is a 
registered trademark of Zilog, Inc. CP/M is a 



Tier Products is a 
n of Microsoft, Inc. 
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JUDGE THE REST, THEN BUY THE BEST 

Only GIMIX offers you SOFTWARE SWITCHING between MICROWARE's OS-9 and TSC's 

FLEX. Plus you get the power of the GMXBUG system monitor with its advanced debugging 
utility, and memory manipulation routines. A wide variety of languages and other software is 
available for these two predominant 6809 Disk Operating Systems. 
You can order a system to meet your needs, or select from the 6809 Systems featured below. 

JUDGE THE FEATURES AND QUALITY OF GIMIX 6809 SYSTEMS 

GIMIX' CLASSY CHASSIS™ is a heavyweight aluminum mainframe cabinet with back panel cutouts to conveniently connect your terminals, printers, drives, monitors, 
etc. A 3 position keyswitch lets you lock out the reset switch. The power supply features a ferro-resonant constant voltage transformer that supplies 8V at 30 amps, + 15V at 
5 amps, and - 15V at 5 amps to insure against problems caused by adverse power input conditions. It supplies power for all the boards in a fully loaded system plus two 
5 'A " drives (yes! even a Winchester) that can be installed in the cabinet. The Mother board has fifteen 50 pin and eight 30 pin slots to give you the most room for expansion 
of any SS50 system available. 1 1 standard baud rates from 75 to 38. 4K are provided and the I/O section has its own extended addressing to permit the maximum memory 
address space to be used. The 2 Mhz 6809 CPU card has both a time of day clock with battery back-up and a 6840 programmable timer. It also contains 1K RAM, 4 
PROM/ROM/RAM sockets, and provides for an optional 951 1 A or 9512 Arithmetic Processor. The RAM boards use high speed, low power STATIC memory that is fully com- 
patible with any DMA technique. STATIC RAM requires no refresh timing, no wait states or clock stretching, and allows fast, reliable operation. The system includes a 2 port 
RS232 serial interface and cables. All GIMIX boards use gold plated bus connectors and are fully socketed. GIMIX designs, manufactures, and tests in-house its complete 
line of products. All boards are twice tested, and burned in electrically to insure reliability and freedom from infant mortality of component parts. All systems are assembled 
and then retested as a system after being configured to your specific order. 

56KB 2MHZ 6809 SYSTEMS WITH GMXBUX/FLEX/OS-9 SOFTWARE SELECTABLE 

With #58 single density disk controller $2988.59 

With #68 DMA double density disk controller $3248.49 

to substitute Non-volatile CMOS RAM with battery back-up, add 300.00 

for 50 Hz export power supply models, add 30.00 

Either controller can be used with any combination of 5" and/or 8" drives, up to 4 drives total, have data recovery 
circuits (data separators), and ire designed to fully meet the timing requirements of the controller I.C.s. 

5 Va" DRIVES INSTALLED IN THE ABOVE with all necessary cables 

SINGLE DENSITY DOUBLE DENSITY 

matted Formatted Unformatted 

Chart shows total 
capacity in Bytes for 
2 drives. 

Contact GIMIX for price and availability of 8" floppy disk drives and cabinets; and 5" and 8" Winchester hard disk system. 

128KB 2Mhz 6809 DMA Systems for use with TSC's UNIFLEX or MICROWARES's OS-9 Level 2 

(Software and drives not included) $3798.39 

to substitute 128KB CMOS RAM with battery back-up, add 600.00 

for each additional 64KB NMOS STATIC RAM board, add 639.67 

for each additional 64KB CMOS STATIC RAM board, add 988.64 

for 50 Hz export power supply, add 30.00 

NOTE: UNIFLEX can not be used with 5" minifloppy drives. 

GIMIX has a wide variety of RAM, ROM, Serial and Parallel I/O, Video, Graphics, and other SS50 bus cards that 

can be added now or in the future. Phone or write for more complete information and brochure. 

THE SUN NEVER SETS ON GIMIX USERS 

GIMIX Systems are found on every continent, except Antarctica. (Any users there? If so, please contact GIMIX so we can 
change this.} A representative group of GIMIX users includes: Government Research and Scientific Organizations in 
Australia, Canada, U.K., and in the U.S.; NASA, Oak Ridge, White Plains, Fermilab, Argonne, Scripps, Sloan Kettering, 
Los Alamos National Labs, AURA. Universities: Carleton, Waterloo, Royal Military College, in Canada; Trier in Germany; and 
in the U.S.; Stanford, SUNY, Harvard, UCSD, Mississippi, Georgia Tech. Industrial users in Hong Kong, Malaysia, South 
Africa, Germany, Sweden, and in the U.S.; GTE, Becton Dickinson, American Hoechst, Monsanto, Allied, Honeywell, Perkin 
Elmer, Johnson Controls, Associated Press, Aydin, Newkirk Electric, Revere Sugar, HI-G/AMS Controls, Chevron. Computer 
mainframe and peripheral manufacturers, IBM, OKI, Computer Peripherals Inc., Qume, Floating Point Systems. Software 
Jiouses; Microware, T.S.C., Lucidata, Norpak, Talbot, Stylo Systems, AAA, HHH, Frank Hogg Labs, Epstein Associates, 
Softwest, Dynasoft, Research Resources U.K., Microworks, Analog Systems, Computerized Business Systems. 

GIMIX Systems are chosen by the Pros 
because of quality, reliability and features. 

Gimix 

The Company that delivers 

Quality Electronic products since 1975. 

1337 WEST 37th PLACE, CHICAGO, IL 60609 
(31 2) 927-551 • TWX 91 0-221 -4055 
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40 track (48TPI) single sided 


199,680 


250,000 


341,424 


500,000 


2 for $700.00 


40 track (48TPI) double sided 


399,360 


500,000 


718,848 


1,000,000 


2 for 900.00 


80 track (96TP1) single 


404,480 


500,000 


728,064 


1,000,000 


2 for 900.00 


80 track (96TPI) double 


808,960 


1,000,000 


1,456,128 


2,000,000 


2 for 1300.00 




TO ORDER BY MAIL 

SEND CHECK OR MONEY ORDER OR USE YOUR VISA OR MASTER CHARGE Please allow 3 weeks for personal checks to clear. 
U.S. orders add $5 handling if order is under $200.00. Foreign orders add $10 handling if order is under $200.00. 
Foreign orders over $200.00 will be shipped via Emery Air Freight COLLECT, and we will charge no handling. All orders must be prepaid in U.S. 
funds. Please note that foreign checks have been taking about 8 weeks for collection so we would advise wiring money, or checks drawn on a 
bank account in the U.S. . Our bank is the Continental Illinois National Bank of Chicago, account #73-32033 Visa or Master Charge aiso accepted. 
GIMIX INC. reserves the right to change pricing and product specificatjons at any time without further notice 
are registered trademarks of GIMIX Inc. 

FLEX AND Uniflex are trademarks of Technical Systems 

Consultants Inc. 0S-9 is a trademark of Microware inc See their ads tor 

other GIMIX compatible software 
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from SublDGIC... 
quality software 
for your Apple II. 




A2-3D1 

GRAPHICS FAMILY -State-of-the-art 
3D graphics. Define 2D or 3D wire-frame objects in any 
size and orientation, from any perspective. Variable field 
of view, color or hi-res (280 x 192) line generation, 
object instance nesting, and independent object 
manipulation. Graphics Editor lets you add 3D text to 
your scene, superimpose 2D text labels in upper- or 
lower-case, and record your entire presentation for 
playback. BASIC interface included to aid development 
of your own control programs. DOS 3.3, 48K, 3 disks, 
$119.85. 



A2-3DA 

SATURN NAVIGATOR -a hi-res sd 

adventure simulation of a space flight from earth to. 

Saturn. Maneuver your ship into orbit around the ringed 

planet, rendezvous with the Saturn space station. 

Available as a'complete package or as an adjunct to the 

A2-3D1 graphics package. Applesoft 48K disk. A2-3DA 

$34.95. A2-3D/A (requires A2-3D1) $24.95. 
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A2-ED1 

WHOLE BRAIN SPELLING 

A colorful program that helps develop internal 
visualization skills for improving spelling. Available in 
the following word-list categories: 

MAIN (8 - adult) SECRETARIAL 

SCIENTIFIC FAIRYTALE 

MEDICAL A CHILD'S GARDEN OF WORDS (preschool -8) 

DOS 3.3, Applesoft 48K disk, $34.95. 



See them today 
at your dealer .. . 



or for direct orders add $1.50 and specify UPS or first class mail. For the A2- 
3D1 Graphics Family add $3.00 for UPS or $6.50 for first class delivery. Illinois 
residents add 5% sales tax. VISA and MasterCard accepted. Descriptive 
brochures of most products listed here are available on request. 

"Apple" is the registered trademark of Apple Computer Inc. 



LOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217)359-8482 
Telex: 206995 
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I/O ENHANCEMENTS 

Q Disk to Tape Backup Utility Richard Merten 

^ Save money by using cassette tapes for backup 

-| o AIM User Function Dispatcher Joel Swank 

■ ^ Overcome AIM'S limitation of three user-definable keys 

Add a VIA and Speech Synthesizer 

19 to ^e Color Computer William C Clements, Jr. 

Add 8-bit bidirectional I/O ports to your Color Computer 

A Sequential File Handler 

26 f° r a Disk-Based OSI Mark and Chris Johnson 

This file handler is written in BASIC and easily implemented 

APPLICATIONS 

o -| Face Synthesizer for PET Dawd Heise 

^ ' Create an animated face on the PET's screen 

A(\ A Low-Cost Digitizer for the Apple JaySinnett 

^"^ Use a sheet of plastic to build this digitizer 

/ c AIM Logic Trainer Larry Koiiar 

^"^ Test logic circuits and control I/O with this program 

en A Versatile Disk Label Printer David Alien 

^^ Print different kinds of labels for one- and two-sided disks 

RA Program for Inverting a Matrix Brians. Fiynn 

^^ Handy routine for math and statistical programs 

PROGRAMMING LANGUAGES 

CO BASIC, FORTH, and RPL Timothy Stryker 

Uv ^ Two established languages are compared to a newcomer, RPL 

TO Tiny PILOT for the PET Jim Strasma and John O'Hare 

' ^ A machine-language PILOT, with screen editing 

77 Microcomputer Interfacing: FORTH vs. BASIC . . Mark Bernstein 

' ' Programs to control a digitizer interface are compared 

MACHINE-LANGUAGE AIDS 

07 PRINT AT for OSI Systems. MattAsay 

u ' Routine for C1P, C4P, and C8P, plus hex object code loader 

QO Symbol Table Lister for the OSI Rolf johannssen 

^^ List symbol table generated by the C1 P assembler 
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COMMUNICATE! 

"The Professional" Series from <^r^"c^ 



NEW Apple II terminal software 

• Z-Term "The Professional"™ by Bill Blue, for 
Apple CP/M* 

• P-Term "The Professional"™ by Joel Kunin and 
Bill Blue, for Apple Pascal** 

• ASCII Express "The Professional"™ by Mark 
Robbinsand Bill Blue, for Apple DOS** 



Q. Do you have difficulty operating your printer when 
connected to a time-sharing computer? Are files 
you're trying to download too large for your system 
buffer? Does your host computer lose data when you 
send files to it? 

A. "The Professionals" incorporate printer ring buffers 
which allow slower printers to accept data at their 
own rates. Very large files are easily received by 
periodically saving the buffer to disk. Unlike some 
software which can lose data during disk saves, 
"The Professionals" not only direct the host to stop, 
but actually wait for it to respond before performing 
the save. After a successful save, the host is 
automatically directed to continue. This process 
may be repeated indefinitely. Lost data during send 
is virtually eliminated by the widest variety of send 
options available in any communications software. 
"The Professionals" ensure fast, reliable data trans- 
fer of any valuable business information. 



Authors 



Does your line of work involve sending written 
material to others? Are you a program author who 
would like to send work in progress to a partner or 
client and know that it arrived intact? What would 
the ability to instantly send material or programs to 
anyone at any time be worth to you? 

"The Professionals" provide the ideal way to send 
your articles, manuscripts, reports, programs and 
technical documents to another computer with 
phone line access. Now you can work WHEREVER 
you want, and be assured that your data is sent to its 
destination quickly and error-free. In fact, compared 
to the fastest mail services, "The Professionals" of- 
fer immediate delivery and will save you the pur- 
chase price in just a few uses. 



Students 



Q. Are you bothered by limited access to your school's 
existing terminals? Would you like to be able to do 
your school assignments at home at your own con- 
venience? 

A. "The Professionals" allow you to access virtually 
any dial-up school or college computer system over 
standard telephone lines. This means no more 
waiting in line for an available terminal or hassles 
with malfunctioning school equipment. You can 
even prepare term papers or reports while off-line 
and send the completed work to the school com- 
puter for final printing. Best of all, you can work from 
home at the times most convenient for you. 



Share Users 

Q. Are you tired of wasting time and money sending or 
receiving files with inadequate, poorly designed 
software? Do you find yourself manually performing 
the same lengthy log-in procedures over and over 
again? Would you like to automate these procedures 
for yourself and others? 

A. "The Professionals" allow you to send files which 
have been prepared in advance. They may then be 
transferred at any time, as quickly as possible — 
even to several different systems. No time is 
wasted reviewing information while on line; data may 
be captured by your computer or printer (or both) to 
be evaluated later at your convenience. These fea- 
tures assure minimum on-line time and therefore 
minimum on-line cost. 

"The Professionals" introduce macros that are more 
sophisticated than anything previously seen in com- 
munications software. These "hand-shaking" mac- 
ros allow you to perform complete multi-stage log-on 
sequences automatically; all you do is specify the 
system to be called. This eliminates sign-on errors 
and greatly simplifies operation of the entire system, 
not only for you, but for other less skilled operators. 

Bulletin Boards 

Q. Would you like to be able to take advantage of the in- 
formation featured on local bulletin boards and infor- 
mation services such as The Source, CompuServe, 
Dow Jones, and others? 

A. "The Professionals" open the world of modem com- 
munication networks to you. There are already 
thousands of these systems and networks in use na- 
tionwide. "The Professionals" provide an ideal way 
of accessing these systems. All 80 column boards, 
external terminals (even the 40 column screen), and 
currently available communications devices are fully 
supported, including the Hayes Micromodem II and 
Novation Apple CAT. All standard baud rates — 110, 
300, 1200 and others — are fully supported; BAUDOT 
too, if your computer is equipped with the Apple CAT 
modem. 



Clubs 



Q. Are there other Apple owners with whom you would 
like to exchange programs or files, but have been 
unable to do so because of limitations imposed by 
the software you now use? 

A. Any two Apples equipped with "The Professionals" 
can transfer ANY type or size file with complete error 
checking and correction. All of "The Professional" 
packages are fully conversant with each other and 
operate almost identically. For the first time ever, 
you can transfer compatible files to an operating 
system different from yours — error free! 



"The Professional" Series 

Communications Software 



Excellence in Apple 




soutnuuesteRn 
data svstems™ 



"CP/M is a trademark of Digital Research. 

* 'Apple is a trademark of Apple Computers, Inc. 



P.O. Box 582-M Santee, CA 92071 714-562-3670 
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About the Cover 




The yachts on our cover this month are 
sailing off British Columbia in the race 
for the World Championship. Advanced 
graphics capabilities make computers an 
excellent tool for sail designers, allowing 
them to simulate the performance of a 
proposed design and make adjustments 
that optimize performance. 

Our cover graphic shows the sail and 
spar plan of the yacht America, which 
won the Royal Yacht Squadron Cup from 
the British in 1851. The America's 
design stunned the yachting world of the 
time and completely outclassed the 
competition. Computers have since in- 
creased the pace of creative innovation. 

Cover photo: Brian Dowley Photography 
26 Peverell St. 
Dorchester, MA 02125 
617/288-1530 
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Editorial 



It was exactly one year ago that MICRO 
ceased to be exclusively about the 6502 
microprocessor and its large family of 
products. I wrote a four- part series en- 
titled "It's Time to Stop Dreaming," 
which examined the new 6809 micro- 
processor from the point of view of a 
6502 devotee. Since then I have become 
personally much more involved with 
the 6809, by choice, and the 6809 
world has expanded and matured in 
many ways. 

On the personal side, MICRO is just 
one of my activities. I also have a com- 
pany, The Computerist, Inc., which for 
many years has been actively develop- 
ing, manufacturing, and selling prod- 
ucts for the 6502, especially expansion 
boards for the AIM, SYM, and KIM 
microcomputers. About the time we 
decided to cover the 6809 in MICRO, 
we had also decided to have a 6809 as 
an option on our new Flexi Plus multi- 
purpose expansion board which was in 
the final stages of development. Well, 
the 'option' turned out to be the most 
significant part of the new product, and 
since last June I have been very actively 
involved with the 6809. 1 am no longer 
the 6809 'novice' I was then. I strongly 
urge all programming-oriented readers 
to become acquainted with this device. 
It has many features which make it a 
dream to use. 

Of greater significance to the 
MICRO reader is the 6502/6809 explo- 
sion. There are several strong points at 
which the 6502 and 6809 interact. 
There are now at least two companies 
making devices to plug into your Apple 
II to permit it to run a 6809: The Mill 
by Stellation II and the Excel-9 by ESD 
Labs. Both processors are standard 
equipment for the Commodore Super- 
PET. The Computerist FOCUS system 
can run with either processor. And the 
Synertek SYM-1 has a simple 6809 con- 
version board. 



But, exciting as some of these prod- 
ucts are, the real significance lies in the 
software. Almost every 6809 system 
made will run either the Technical 
Systems Consultants' FLEX, or the 
Microware Systems Corporation's 
OS-9, or both. These two operating 
systems provide the 'glue' which holds 



the 6809 world together. Unlike the 
6502 world which developed a totally 
different operating system for each 
product, the 6809 world has generally 
accepted these two systems as the 
starting point for development. The 
Mill already offers OS-9 and the Excel-9 
runs FLEX. Versions of these are 
available now (or very soon) for the 
TRS Color Computer. The result is that 
there is a large population of software 
which will run on virtually any 6809 
system. If you are a purchaser of soft- 
ware, this means that there are more 
high quality packages available than 
would be the case if each machine were 
different. If you are a developer of soft- 
ware for sale, imagine your new pro- 
duct having this diverse population of 
computers and users as a market. 

If you become convinced that it is 
worth upgrading your existing equip- 
ment or even investing in a total 
6809-based system, what about all of 
the software you have already written 
in 6502 assembler? At least one com- 
pany, Frank Hogg Laboratory, is 
already offering a program to translate 
6502 code into 6809 code, and others 
will probably follow. Once you have 
your 6809 going, if you ever require 
6502 code again, there are several 
6809-based cross assemblers available 
which will support the 6502. 

If you have written the bulk of your 
software in BASIC, Pascal, FORTH, 
COBOL; or C, then life is even easier. 
All of these languages are fully sup- 
ported in the 6809 world, and generally 
in more sophisticated packages than 
their 6502 brethren (reflecting in part 
on the superiority of the 6809 in 
writing position-independent code, 
using multiple stacks, 16-bit index 
registers, and so forth). 

I believe that inherent superiorities 
of the 6809, the systematic develop- 
ment of the general operating systems, 
and the overall quality of the hardware 
and software that is being offered will 
make the 6809 a very significant device 
in your microcomputing future — 
whether you buy one or not! Therefore, 
MICRO will continue to provide you 
substantial information about the 6809 
and the family of products which are 
developing around it. 
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New Publications 



Mike Rowe 
New Publications 
34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 



Word Processors and Information Pro- 
cessing, by Dan Poynter. Para Pub- 
lishing (P.O. Box 4232, Santa Barbara, 
CA 93103], 1982, 172 pages, SVi x SVi 
inches, paperback. 
ISBN 0-915516-31-4 $11.95 

This book is designed to aid you in pur- 
chasing equipment, products, and ser- 
vices. It will help you determine what 
your word processing requirements are. 
Includes a product directory and a re- 
source section. 

CONTENTS: The Word Processing Dilem- 
ma; What Is Word Processing And How Can 
It Help Me? ; The Parts of the Word Pro- 
cessor: The Choices; Word Processor Func- 
tions and Features; Let The Buyer Compare 



How To Buy A Word Processor; The Price 
and Other Costs; Appendix: For More Infor- 
mation; Glossary Of Word Processing Terms; 
Index; Colophon. 

BASIC Programs for Scientists and 

Engineers, by Alan R. Miller. Sybex 

(2344 Sixth Street, Berkeley, CA 

94710), 1981, 318 pages, 7x9 inches, 

paperback. 

ISBN: 089588-073-3 $14.95 

A library of BASIC programs en- 
countered in science and engineering 
applications. Each program is explained 
in detail. 

CONTENTS: Preface; Introduction; A Note 
on Typography; Evaluation of a BASIC In- 
terpreter or Compiler; Mean and Standard 
Deviation; Vector and Matrix OperationSj 
Simultaneous Solution of Linear Equations, 
Development of a Curve-Fitting Program, 
Sorting; General Least-Squares Curve Fit- 
ting; Solution of Equations by Newton's 
Method; Numerical Integration; Nonlinear 
Curve-Fitting Equations; Advanced Applica- 



tions: The Normal Curve, the Gaussian Er- 
ror Function, The Gamma Function, and 
the Bessel Function; Appendix A: Reserved 
Words and Functions; Appendix B: Sum- 
mary of BASIC; Bibliography; Index. 

From Chips to Systems: An Introduc- 
tion to Microprocessors, by Rodnay 
Zaks. Sybex (2344 Sixth Street, 
Berkeley, CA 94710), 1981, 551 pages, 
7x9 inches, paperback. 
ISBN: 0-89588-063 $14.95 

A history of microprocessors, including 
a discussion of its support components 
and design. No preliminary knowledge 
of microprocessors needed. 

CONTENTS: Preface; Introduction; Fun- 
damental Concepts; Internal Operation of a 
Microprocessor; System Components; Com- 
parative Microprocessor Evaluation; System 
Interconnect; Microprocessor Applications; 
Interfacing Techniques; Microprocessor Pro- 
gramming; Assembly and High-Level Pro- 
gramming; System Development; The 



Future; Appendices; Index. 
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cosmos 



SCREEN 




MIXER 



SCREEN MIXER is a set of three modules for APPLE -II. 
Just plug-in these modules to your Apple-H, and you will 
have the Apple -II with more features you could not expect 
till now 

SCREEN MIXER provides: 

• The mixed screen of any two of screens available for the 
Apple-II. Please note that all of HGR, LGR and Text screen 
has two pages. The mixing is done with hardware, not like 
Hi-Res Text Generater Programs, thus you need no software 
and the scroll speed is not reduced. Also, you can scroll 
the text without any effect to the graphic patterns. 

• The Double Density High Resolution Graphics. Yes, you 
can plot 580 dots in one line. You have only 280 dots in one 
line on ordinary Apple -II. (Software is required) 

• One of the most advanced character display. Besides 
Normal and Inverse characters which are already built-in 
you will have the choice of Half -Intensity and Hilighted cha- 
racters. And more, you may Over-Write or Over-Type any 
character to other character if you want to do so! 

(Software is included) 

$60 MANUAL — $10.00, applied towards purchase 

cosmos 




Over Write 



WORLD WIDt COMPUTil) iUPlH S 



Dealers inquiries invited. 

For more information call or write to ASTAR INTERNATIONAL CO, 

5676 FRANCIS AVE., CHINO, CA 91710 Phone 714-627-9887 

Apple-II is a registered trademark of Apple Computer Inc. 



Silicon Office: A Review 



byJimStrasma 



Editor's Note: Because of the size, com- 
plexity, and significance of "Silicon 
Office/' we feel it cannot be covered 
adequately in our normal "Reviews in 
Brief" format. 

Product Name: Silicon Office 

Equip, req'd: CBM 8096 and 

8000 or higher 
series CBM disk 
drive. IEEE modem 
and CBM or ASCII 
printer optional. 
Price: $999.00 

Manufacturer: Bristol Software 
Factory 
P.O. Box 14 
Horley, Surrey 
England 

Silicon Office is the most significant 
program yet written for any micro- 
computer. It claims to handle the daily 
computer needs of a small business 
with a single program, and very nearly 
does! Nothing remotely comparable is 
available on competing microcomputers. 
It may well become the Software Sensa- 
tion of 1982, and a vast boost to Com- 
modore sales. Already it is outselling 
all other business programs in Europe, 
where it has been available for six 
months. This is in spite of a price tag 
there of $1,600. 

What is so special about Silicon Of- 
fice 2 . For one thing, it's the largest 
single machine-language program ever 
written for a microcomputer. It oc- 
cupies 54K bytes, representing 27000 
lines of source code. (Triple the size of 
VisiCalc.) In return for taking nearly all 
available memory space, Silicon Office 
gives complete freedom in using both 
drives of the disk unit. 

Briefly, Silicon Office does three 
things: 1) it is a database language — 
the only one available on a microcom- 
puter,- 2) it is a word processor — one 
with amazingly useful features,- 3) it is 
a communicating terminal. It is this 
multi-functionality which makes it 
worth nearly any price. Compared to 
the cost of say, Jinsam 8.2, plus Word 
Pro 4 Plus, and some sort of terminal 
program, it is a bargain. 



Gestalt psychotherapists teach that 
the whole is greater than the sum of its 
parts. This is certainly true of Silicon 
Office. It is vastly more useful than 
having three separate programs with 
similar functions. Each of its modes in- 
teracts with the others in very useful 
ways. For instance, the report generator 
is the weakest link in most database 
packages I have used. In Silicon Office, 
the report generator is the word pro- 
cessor, which has full access to the en- 
tire database at all times. 

The first function of Silicon Office 
is database management. In this role, it 
is visibly the replacement for OZZ, the 
company's previously best- known pro- 
gram. [OZZ is probably best known for 
its role in helping rescuers during the 
MGM Grand Hotel fire. It was used 
there to keep track of thousands of 
guests.) OZZ had its faults, primary 
among them limited record and file 
size, single sort key, and fragile non- 
standard file structure. 

Silicon Office has overcome these 
weaknesses. It uses standard Com- 
modore relative files for data, and 
opens and closes the disk file each time 
a record is read. This makes it nearly 
impossible to lose the entire file. To get 
around the file size limitations of Com- 
modore's relative records and the 8050 
disk unit, Silicon Office allows each 
record to consist of up to six separate 
relative records, allowing an effective 
record size of 6*252 characters. 

Most users, however, won't need 
records that large, due to the program's 
ability to link up to six totally indepen- 
dent files in meaningful ways. It is 
what is called a Relational Database. 
This makes it arguably the only true 
database manager for Commodore 
computers. To my knowledge, only 
MDBS and DBase II for the S-100 
market, and DB Master for the Apple 
share this capability. 

Why do you need a relational data- 
base? Let me share an example from my 
work. As pastor of a 370-member 
church, I have 300 families to track, 
each with one to nine members. I have 



tried over 20 database packages, and 
every one required total duplication of 
all information on each family in the 
records of each family member. They 
further required that every record have 
exactly the same fields as every other 
record. This makes no sense for a 
church. A weekly record of attendance 
and contributions isn't needed for a 
student a thousand miles from home. 
And it is a horrible waste of time and 
disk space to copy the same street ad- 
dress into the records of ma, pa, and 
each of six kids. Imagine the fun when 
they move across town. . . . 

A relational database gets around 
this problem by defining different 
kinds of records for different situations, 
and allowing them to be used together. 
With Silicon Office, I now have three 
basic record formats: one for each local 
family, a second for each active mem- 
ber, and a third for distant families. 

Each family record contains a refer- 
ence to the matching individual 
records, and vice versa. Likewise, the 
distant records include a number that 
allows them to be merged in with the 
family records for all-church mailings. 
To expand the concept further, I could 
add a further distinction between adult 
and child records. Redundant informa- 
tion, such as the town name is supplied 
from a separate, disk-storable, variable 
memory with Silicon Office. 

File structures are easy to design, by 
drawing them on the video screen. 
Commodore-recommended forms edit- 
ing standards are followed. Unlike 
competing programs, Silicon Office 
allows range checks and validation on 
each field, and can be designed to allow 
or prevent duplicate field data in a file's 
primary sort key. 

Like at least one competing pack- 
age, CMD's The Manager, it also has 
arithmetic functions, although more of 
them and far better handled than in its 
competitor. Among these, the most in- 
teresting is DATE, which includes the 
ability to calculate days between dates, 
and already knows that 1982 isn't a 
Leap Year. But Silicon Office goes one 
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crucial step further, a step that makes 
it truly a new language. It allows 
branching, the all-important IF state- 
ment. (It is only the lack of this, in my 
opinion, which keeps VisiCalc from be- 
ing a language.) Silicon Office allows 
up to a hundred database commands, 
including IF and GOTO, to be pre- 
programmed in a simple English-like 
syntax. These commands can be saved 
as a file, and also linked to almost any 
effective program length. 

As if that weren't enough, Silicon 
Office also includes true variables, 64 
numeric and 26 string. They may have 
names of up to 16 significant charac- 
ters, and numeric precision of 14 digits. 
It is even possible to program in user 
input prompts for untrained operators. 
The responses can be stored as variables. 

Some of Silicon Office's other 
database features are: the ability to 
have tables in memory for data lookup; 
sub sorting from one field to another 
when matches are found while sorting; 
the ability to automatically create 
records for a new file from the record 
data of other files; searches for records 
with field data within preset bounds; 
and wild- card searches for arbitrary 
strings of characters, either within par- 
ticular data fields or throughout the en- 
tire file. This last feature proceeds at 
the previously unheard-of (in Commo- 
dore circles at any rate) speed of 250 
full-length records per minute. 

Perhaps by now you have forgotten 
that this package also includes a word 
processor? Don't! It is not just another 
word processor. This one extends the 
state of the art, very obviously building 
on the better features of its competitors 
Word Pro 4 Plus and Wotdcraft 80. 

One of my chief complaints about 
previously available word processors 
has been the difficulty (or impossibility) 
of linking text files too large to fit in 
memory at once. I can't use recent ver- 
sions of Word Pro, for example, to 
write sermons, simply because they 
aren't able to hold the full text of a 
20-minute message at once, and link- 
ing is too much trouble. But in Silicon 
Office, the entire disk may be treated as 
part of the text area. You pass from one 
file to another, up to a maximum of 
150-180 printed pages, by simply scan- 
ning from "page" to "page" of mem- 
ory. There is sufficient buffering of text 
that the disk access time is not 
noticeable. 

Like Wordcraft 80, Silicon Office is 
based on the idea that "What you see is 
what you get." Formatted output can 
be wider than the standard 80-column 



screen up to a maximum of 125 col- 
umns; both include horizontal scroll- 
ing like that in VisiCalc. Text is for- 
matted immediately on the screen. 
However, unlike Wordcmft 80, this for- 
matting is done immediately. There is 
no chance for the typist to get ahead of 
the word processor, or to have to wait 
until what was just typed appears on 
the screen. Inserts and deletes are done 
at full-speed. Whole chapters may be 
quickly inserted in the middle of ex- 
isting text files. 

Like the other programs mentioned, 
Silicon Office justifies text. However, 
it justifies within words, not merely be- 
tween them as on the others, leading to 
an extremely smooth appearance of 
finished text. Even more important, it 
is easily able to handle true multi- 
column documents, in a single pass 
through the printer. This makes it the 
only Commodore-compatible word 
processor suitable for newsletter for- 
matting. Naturally, it also works well 
with nearly any ASCII daisy wheel 
printer, and can send any needed ASCII 
sequence. 

Another amazing feature of Silicon 
Office (that has people in Europe 
trading in dedicated word processors) is 
its ability to perform truly complex 
calculations of text data and format the 
results, at print time. And we haven't 
forgotten about the database manager, 
have we? The word processor can use 
any variable or field data anywhere in 
the currently accessible data files. It 
can even pause while changing data 
diskettes. And if the printer fouls up, it 
can restart from the top of any page. 

Both the data manager and the word 
processor handle "find" and "change" 
tasks more intelligently than com- 
peting programs. Matches are made 
without regard to the case, upper or 
lower, of the text being searched. But if 
a change is made, the new text is made 
to conform to the case of the replaced 
text, even in words containing both up- 
per and lower case text. 

The communications capability re- 
quires a Silicon Office at both ends of 
the line. But within that limitation, it 
is possible to do almost anything from 
a remote terminal that could be done 
locally, including sending every kind of 
file used by Silicon Office. 

Officially it is for the Commodore 
4010 modem, which is now hard to get. 
However, any RS232 modem should 
work, if connected to the IEEE-488 port 
via a bi-directional interface, such as 
the TNW 2000. 



The sellers are obviously making 
great efforts at support. Already 
available is an application library that 
includes the equivalent of five mega- 
bytes of data file examples, including: 
inventory, payroll, general ledger, job 
control, and so on. There is also a sup- 
port Hotline, a newsletter of user ap- 
plications, and a videocassette training 
course. There is also, thankfully, a two 
year guarantee on the program, in- 
cluding needed upgrades for such pre- 
dicted events as Commodore's forth- 
coming DOS 3.0 and hard disks. And 
the manuals are just perfect. The train- 
ing guide teaches all the essentials in 
one or two hours, and the HELP screens 
within the program reference a com- 
plete and well-organized reference 
manual. There is also a complete pro- 
grammer's reference section on file 
structures, telling how to access them 
from other programs. 

What don't I like about Silicon Of- 
fice? I can sum it up in one word — pro- 
tection. With \V% man years of pro- 
gramming effort in the program, I cer- 
tainly appreciate why the Bristol Soft- 
ware Factory doesn't want the user giv- 
ing away their program. However, they 
only supply one spare diskette, and 
have gone to great pains to be sure no 
one copies it. Thus, if I trash a diskette, 
I'll have to be extra careful with the 
spare for the week or so it takes to mail 
in the dead diskette and get back a 
replacement. Also, I can't make any 
changes to handle special needs. 

Having watched the throes of for- 
eign DOS disk protection on the Apple 
ll for the past two years, I don't 
welcome this first appearance of it on 
the Commodore disk drives. Fortunately, 
once Silicon Office is loaded, its disk- 
ette may be safely filed away until the 
next day (assuming nothing resets the 
computer meanwhile.) On that basis, 
with normal care, a diskette should last 
a long time. 

Since I'm quibbling, I may as well 
mention that data files are stored in 
screen codes and need conversion for 
use in other programs. Fortunately, the 
needed fixes are included in the manual. 

Do I recommend Silicon Office 2 . 
You'd better believe I do! It is the single 
best program I have ever seen! 



For more information contact Asso- 
ciated Marketing Systems, Inc., 55 
Central Dr., Farmingdale, NY 11735. 
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Disk to Tape Backup Utility 



by Richard Merten 



In this article the author 
demonstrates ways to save 
money on archives by using 
cassette tape to back up and 
restore every sector of a disk. 

Disk to Tape 

requires: 

Apple II or Apple II Plus 
48K, DOS 3.2 or 3.3 
Integer BASIC in language 
card or motherboard 



This program for making backup tapes 
is easy to use and will run with either 
13- or 16-sector diskettes. It is short — 
less than one page of machine language 
and about 50 lines of Integer BASIC. It 
also contains error checking routines 
that alert you to problems from both 
the disk and the cassette. An entire 
16-sector disk can be sent to tape in 
about 15 minutes. As many as four full 
disks can be stored on a single C-60 
cassette, or six on a C-90. 

To transfer a disk to cassette, first 
run the Backup program from a disk- 
ette using the same DOS as the disk 
that you are going to duplicate. (This is 
important because the backup program 
uses the RWTS routines in the Apple to 
read and write information to the disk. ) 

The BASIC portion loads the 
machine language routine then asks if 
you want to save or restore a disk. For 
two-drive systems you can put the disk 
in either drive 1 or 2, then turn on the 
tape recorder and press return. If you 
are saving a DOS 3.3 disk no problems 
should occur, but if you are saving a 
DOS 3.2 disk to tape, there will prob- 
ably be at least two sectors on track 2 
that cannot be read. 

If a sector cannot be read, the track 
and sector that DOS is unable to read 
will be printed to the screen. These 
unreadable sectors are filled with zeros 
before they are sent to the tape. This 



Listing 1 



10 REM 


BACKUP 


DISK TG TAPE UTILITY 


20 REM 




ST 


3 REM 




S.C. MEETEN 


40 REM 






50 REM 




7 / 2 8 / a 1 


60 REM 






70 LOMEK 


I 2457o 




30 D*="" 


I HEM 


CONTROL D 



90 PRINT D$!"EL0AD TAPEAK.OBJ" 



100 



PRINT ! PRINT 



PRINT 



PRINT 



DOS 3 
1 5 



! INPUT " 
THEN 270 



"JDOS!" TAPE BACKUP UTILITY 
SAVE TO TAPE" 
2) RESTORE TO DISK" 
WHICH %» 



REM GET ADDRESS OF SECTOR NUMBER AND LENGTH FROM MACHINE LANGUA3E 
110 TQTAFE=256* PEEK (2049)+ PEEK ( 2043 i ! FEMTAPE=256* PEEK (2051;+ PEEK 

(2050 i 
120 SECLEN=256* PEEK (2053)+ PEEK ( 2052 i J SECNUM=256* PEEK (2055)+ PEEK 

(2054) 
130 REM PEEK AT WHICH VERSION DOS (IN 48K MACHINE) 
140 DQS= PEEK ( -19522) ! IF D05^3 OR DOS* 2 THEN 160 

150 CALL -936t VTAE 13! PRINT "ERROR!! EITHER NOT A 48K MACHINE OR FAGE3 
HAS BEEN ALTERED"! PRINT ! PRINT "REBOOT DOS AND TRY AGAIN"! END 
160 IF D0S=3 THEN 190 

170 REM IF DOS VERSION 3.2 POKE IN NEW SECTOR NUMBER AND SECTOR LENGTH 
ISO POKE SECNUM+1,12! POKE SECLEN+1,80 
190 DHIVE=2!TRACK=3!ERR=6! DIM AttlO) 

200 CALL -936! VTAB 4! PRINT " DISK TO TAPE BACKUP UTILITY" 
210 PRINT ! PRINT " EY B.C. MERTEN" 

220 PRINT ! PRINT " FOR DOS 3." J DOS 

230 VTAE 14! PRINT "THIS UTILITY WILL SAVE OR RESTORE AN 

"ENTIRE DISK TO TAPE, DOS AND ALL!" 
240 VTAE 20 
250 PRINT ! PRINT "IT TAKES ABOUT 15 MINUTES TO COMPLETE 

"PRESS RETURN TO CONTINUE" 
260 INPUT "%A$ 
270 CALL -936 
280 VTAE 3! FEINT 
290 VTAE 6! PRINT 
300 PRINT ! PRINT 
310 PRINT ! PRINT 
320 IF WC1 OR W>2 
330 VTAE 11! INPUT 

2 THEN 330 
340 POKE DRIVE, DR 
350 VTAE 16! PRINT "PUT DISK IN DRIVE #"!DR! 

"AND PRESS RETURN" 
360 INPUT "",A* 
370 VTAE 15! CALL -958 
380 IF W=2 THEN 510 
390 ERRT=0 
400 FOR X = TO 34 STEP 

SXf " TO "JX + 4 
410 POKE TRACK, X 
420 CALL -958 
430 VTAB 15! TAE 9 
440 POKE 50, 63! PRINT 
450 PRINT "T$ S*" 
460 CALL TOTAPE 

470 ERRT=ERRT+ PEEK (ERR!! NEXT X 

480 PRINT ! PRINT " " ! ERRT! " ERRORS! WANT TO BACKUP ANOTHER? 
490 INPUT "",AI! IF At="Y" THEN 270 

500 END 

510 FOR X=0 TO 34 STEP 5t VTAB 15! PRINT 

!Xf " TO "JX + 4 
520 POKE TRACK, X 
530 CALL FRMTAPE 

IF PEEK (ESR)=0 THEN NEXT X 

IF PEEK (ERR)=128 THEN GOTO 590 



ENTER DRIVE # ( 1 OR 



, DR! IF DR-C1 OR DR> 



VTAB 13! PRINT 



START TAPE RECORDER" ! PRINT 



NOW BACKING UP TRACKS 



"BAD TRACK & SECTOR LIST"! POKE 50,255 



NOW RESTORING TRACKS 



540 
550 



(Continued) 
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presents no problem when the disk is 
reconstructed since they are not used 
during the booting process. 

A read error from the disk will cause 
an error indication to appear on the 
screen. However, a read error from 
cassette is considered fatal and causes 
the program to bomb gracefully, asking 
if you would like to try again. 

How it Works 

Information is moved from tape to 
disk and back again five tracks at a 
time, a total of seven times through the 
loop to accommodate all 35 tracks. The 
program keeps you posted on its pro- 
gress with beeps and other updates 
along the way, and totals any errors at 
the end. 

The BASIC portion of the program 
is primarily concerned with prompting 
the user, and general housekeeping ac- 
tivities. The assembly language portion 
does most of the work, so the detailed 
explanation will start there. 

Two CALLs are possible from 
BASIC. A series of subroutines called 
TOTAPE moves information from disk 
to tape. Another series called FRM- 
TAPE moves data from the cassette on- 
to the disk. In either case the 6502 
registers are first saved for the return 
trip to BASIC. Next, the page zero ad- 
dresses starting at $10 are moved into a 
temporary buffer starting at $910. This 
is done because the RWTS routine 
changes page zero data that makes it 
impossible to correctly return to the 
BASIC caller. 

Next the location of the DOS IOB 
routine is located with a JSR to location 
$3E3. On return the IOB address is in 
the accumulator and Y registers. This 
address is saved at IOB ADD and used to 
index information in and out of the IOB. 

After some registers have been set 
up, the program loops through the 
GETRAX and NXTRAK routines until 
five full tracks have been read into (or 
written out of) a buffer area that begins 
at $1000. If at any time the processor 
returns from the RWTS routine with its 
carry flag set, it will then jump to the 
ERROR routine. After all five tracks 
have been moved, the page zero values 
are restored and the program returns to 
BASIC for updating, then back into the 
loop to get five more tracks. 

The Error Routine 

If an error occurs while reading from 
the disk, the ERROR routine incre- 
ments an error counter, then fills with 
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Listing 1 (Continued) 






560 PRINT ! INPUT " 


REBUILD ANOTHER DISK? " , A* 




570 IF A*="Y" THEN 270 




580 END 






590 PRINT ! PRINT 






600 PRINT " **** TAPE HEAD ERROR ****" 




610 PRINT 1 INPUT " 


WANT TO TRY AGAIN? %A*i IF A$="Y" 




620 END 






Listing 2 


ORG $3 




2 


OB' J $6 000 




3 


* 




4 


ft********-***-*-***************-** 




5 


* * 




6 


* DISK TO TAPE * 




7 

8 


* BACKUP * 

* * 




9 


* BY * 




10 


* B.C.H. * 




Li 


* 7/ 13/31 * 




12 


* * 




13 


«**#«**###.** ##***»**« ***###### 




14 


* 




15 


IOEADD EQU fOQ 




16 


DRIVE EQU $02 




17 


TRACK EQU $03 




13 


SECTOR EQU $04 




19 


COMAND EQU $05 




j 20 


ERR1 EQU $06 




21 


COUNT EQU $07 




22 


READCH EQU $08 




1'6 


BUFLO EQU $0 9 




24 


EUFHI EQU $0A 




25 


CH EQU $24 




26 


AIL EQU *3C 




27 ' 


A1H EQU $3D 




28 


A2L EGU $3E 




29 


A2H EQU $3F 




30 


RWTS EQU $3D9 




31 


FNDIOE EQU $3E3 




32 


TEMP EQU $900 




33 


SAVE EQU $FF4A 




3 4 


RESTORE EQU $FF3F 




35 


WRITE EQU $FECD 




36 


READ EQU $FEFD 




37 


PRBLNK EQU $F948 




38 


PRBYTE EQU $FDDA 




39 


CHOUT EQU $FDSE 




40 


* 




0800! OS 08 41 


DA TOTAPE. 




0802! 21 03 42 


DA FRMTAPE. 




0804! E5 08 43 


DA SECLEN 




0806! 74 08 44 


DA SECNUM 




45 


4 




0803! 20 4A FF 46 


TOTAPE JSR SAVE. 




080E! 20 D7 08 47 


JSR SAV1. 




080EJ 20 4E 08 43 


JSR SETUP. 




081 IS A9 01 49 


LDA #$01 * SET HEAD COMMAND 




08131 35 05 50 


STA COMAND. 




0815! 20 7A OS 51 


JSR GETRAX. 




0813! 20 A9 08 52 


JSR SETTAP. 




081B! 20 CD FE 53 


JSR WRITE. 




081E! 4C E2 08 54 


JMP REST1. 




55 


* 




0321! 20 4A FF 56 


FRMTAPE JSR SAVE. 




0324! 20 D7 08 57 


JSR SAV1. 




0827! 20 4B 08 58 


JSH SETUP. 




082A! A9 02 59 


LDA #$02 * SET WRITE MODE 




082C! 35 05 60 


STA COMAND. 




0S2E! 20 A9 08 61 


JSR SETTAP. 




0831! A5 24 62 


LDA CH. 




0333! 85 08 63 


STA HEADCH. 




0835! 20 FD FE 64 


JSR READ. 




0838! A5 24 65 


LDA CH. 




083A! C5 08 66 


CMP READCH. 




083C! F0 07 67 


BEQ OK. 




083E! A9 30 68 


LDA #$80 




! 0840! 85 06 69 


STA ERR1. 




0842! 4C E2 08 70 


JMP REST1. 




i 0845! 20 7A 08 71 


OK JSR GETRAX. 




i 0348! 4C E2 08 72 


RTS JMP REST1. 




73 


* 


084B! 20 E3 03 74 


SETUP JSR FNDIOB * GET IOB ADDRESS 
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Listing 


2 (Continued) 










0S4E! 


84 


00 




75 




STY 


IOBADD * 


AND SAVE AT IOBADD 


0850! 


S5 


01 




76 




STA 


IOBADD+1 




0852! 


A9 


05 




77 




LDA 


#$05 * 


SET TRACK COUNT TO 5 


0854! 


35 


07 




7S 




STA 


COUNT. 




0856! 


A9 


10 




79 




LDA 


#*10 * 


SET BUFFER TO $1000 


0858! 


85 


OA 




80 




STA 


BUFHI . 




085AI 


A5 


02 




81 




LDA 


DRIVE * 


GET DRIVE # 


085C! 


AO 


02 




82 




LDY 


#*02 




085E! 


91 


00 




8 3 




STA 


(IOBADD) 


Y 


0360! 


A9 


00 




84 




LDA 


#«00 




0862! 


85 


04 




85 




STA 


SECTOR + 


SET SECTOR 


0864! 


85 


06 




86 




STA 


ERR1 * 


ZERO ERR BYTE 


0866! 


85 


09 




87 




STA 


BUFLO. 




0868! 


C8 






S3 




INY 






0869! 


91 


00 




89 




STA 


(IOBADD) 


Y * SET VOLUME TO 


036B! 


AO 


08 




90 




LDY 


#»08 




086D! 


91 


00 




91 




STA 


(IOBADD) 


Y * SET LOW BUFFER ADDRESS 


086F! 


60 






92 
93 


RTS1 

* 


RTS 






0870! 


E6 


OA 




94 


L00F1 


INC 


BUFHI * 


NEXT MEMORY PAGE 


0872! 


A5 


04 




95 




LDA 


SECTOR * 


NEXT SECTOR 


0874! 


C9 


OF 




96 


SECNUM 


CMP 


#t0F 




0876! 


FO 


24 




97 




BEQ 


NXTRAK * 


DONE WITH THIS TRACK 


0878! 


E6 


04 




98 




INC 


SECTOR * 


TO NEXT SECTOR 


037A! 


A5 


03 




99 


GETRAX 


LDA 


TRACK. 




087C! 


AO 


04 




100 




LDY 


#$04 * 


SET TRACK TO READ 


087E! 


91 


00 




101 




STA 


(IOBADD) 


Y 


0880! 


C8 






102 




INY 






0381! 


AS 


04 




103 




LDA 


SECTOR * 


SECTOR TO READ 


0683! 


91 


00 




104 




STA 


(IOBADD) 


Y 


0885! 


AS 


05 




105 




LDA 


COMAND * 


READ OR WRITE 


0887! 


AO 


OC 




106 




LDY 


#$0C 




0889! 


91 


00 




107 




STA 


(IOBADD) 


Y 


083B! 


A5 


OA 




108 




LDA 


BUFHI * 


SET MEMORY PAGE 


088D! 


AO 


09 




109 




LDY 


#*09 




088F! 


91 


00 




110 




STA 


(IOBADD) 


Y 


0891! 


20 


E3 


03 


111 




JSR 


FNDIOB * 


ADDRESS OF IOE 


0894! 


20 


D9 


03 


112 




JSR 


RHTB * 


READ T/S 


0897! 


BO 


21 




113 




BCS 


ERROR * 


IF CARRY SET THEN ERROR 


0899! 


4C 


70 


08 


114 
115 


* 


JMP 


LOOP1 * 


GET NEXT SECTOR 


089C! 


C6 


07 




116 


MXTRAK 


DEC 


COUNT * 


5 TRACKS PER LOAD 


089E! 


FO 


CF 




117 




BEQ 


RTS1 * 


IF DONE 


08A0! 


E6 


03 




118 




INC 


TRACK. 




0SA2! 


A9 







119 




LDA 


#too * 


RESET TO SECTOR ZERO 


08A4! 


85 


4 




120 




STA 


SECTOR. 




08A6! 


4C 


7A 


08 


121 

122 


# 


JMP 


GETRAX. 




08A9! 


A 9 


00 




12 3 


SETTAP 


LDA 


#*00 * 


SET EOUNDRY FOR TAPE MOVE 


08AB! 


85 


3C 




124 




STA 


AIL. 




08AD! 


A9 


FF 




125 




LDA 


#*FF 




OSAF! 


85 


3E 




126 




STA 


A2L. 




0SB1! 


A 9 


10 




127 




LDA 


#4 10 




08B3! 


85 


3D 




123 




STA 


A1H. 




OSES! 


A 9 


5F 




129 


SECLEN 


LDA 


#*5F 




0SE7! 


85 


3F 




130 




STA 


A2H. 




08B9! 


60 






131 
132 


* 


RTS 






OSBA! 


E6 


06 




133 


ERROR 


INC 


ERR1 * 


INCREMENT COUNTER 


08EC! 


A 9 


00 




134 




LDA 


#*00 * 


FILL SECTOR WITH ZEROS 


08EE! 


A8 






135 




TAY 






08EF! 


91 


9 




136 


EfiLOOF 


STA 


(BUFLO), Y 


08C1! 


CS 






137 




INY 






08C2! 


DO 


FE 




138 




BNE 


ERLOOP. 




08C4! 


A5 


03 




139 




LDA 


TRACK * 


PRINT EAD TRACK & SECTOR 


08C6! 


20 


DA 


FD 


140 




JSR 


PRBYTE. 




08C9! 


20 


48 


F9 


141 




JSR 


PRBLNK. 




08CC! 


A5 


04 




142 




LDA 


SECTOR. 




08CE! 


20 


DA 


FD 


143 




JSR 


PRBYTE. 




08D1! 


20 


SE 


FD 


144 




JSR 


CROUT. 




08D41 


4C 


70 


08 


145 
146 


* 


JMP 


LOOP1 . 




03D7! 


A2 


10 




147 


SAV1 


LDX 


#*10 




03D9! 


B5 







148 


SAVLOP 


LDA 


*00, X 




03DE! 


9D 


00 


09 


149 




STA 


TEMF,X 




08DE! 


E8 






150 




INX 






08DF! 


DO 


F8 




151 




BNE 


SAVLOP. 




03E1! 


60 






152 
153 


* 


RTS 






08E2! 


A2 


10 




154 


REST1 


LDX 


#*10 




08E4! 


ED 


00 


09 


155 


RESTLOP 


LDA 


TEMP, X 




08E7! 


9 5 


00 




156 




STA 


$00, X 




08E9! 


E8 






157 




INX 






03EA! 


DO 


F8 




153 




BNE 


RESTLOP. 




08EC! 


20 


3F 


FF 


159 




JSR 


RESTORE. 




08EF! 


60 






160 




RTS 


* RETURN TO CALLER 



zeros that page in the buffer that didn' t 
receive any data. Finally it prints the 
faulty track and sector location to the 
screen and returns to read the next sector. 

The BASIC Program 

A routine which checks out the 
system to see which DOS is in effect is 
at the beginning of the BASIC program. 
If it is 3.2, values are POKEd into two 
locations of the assembly routine. 
These routines define the read buffer 
boundries and the number of sectors 
per track to read. If the RWTS pointers 
on page three are missing, an error 
message is encountered and the pro- 
gram tells you to reboot the disk before 
running the program again. 

The BASIC portion of this program 
is straightforward with one exception. 
Line 70 contains the illegal command 
LOMEM:. Before entering any part of 
the BASIC program, first type NEW to 
kill any existing program. As the first 
line of BASIC, type "70 LIST 24576". 
Next type CALL -151 to get to the 
monitor. When in the monitor, type 
CA CB and RETURN to find the 
pointers for the start of the program 
(low byte first) . On a 48K machine this 
willbe$95FB. 

Print $95FBL to get a list of the 
tokenized program. About four num- 
bers from the start, you should find a 
$74 character. Change this to $11 and 
then re-enter BASIC with a control C. 
Now LIST the program and you should 
see "70 LOMEM:24576". Now type in 
the rest of the BASIC program and save 
it to disk. 

Save the Machine Code 

After assembling the machine code, 
save it on disk with the command 
"BSAVE TAPBAK.OBJ,A$800,L$F0". 
This routine will be loaded from line 90 
of the integer routine when it is first run. 

Caution 

If you are using the DOS 3.3 and 
have 3.2 disks that have been modified 
with one of the universal boot routines, 
you may experience difficulty in using 
this backup routine. There are just too 
many sectors in the modified DOS that 
cannot be read by the 3.2 RWTS rou- 
tine. My suggestion is to first MUFFIN 
all the programs onto a 3.3 disk and 
then make the backup for that disk. 
They can later be DEMUFFINED to 
another universal 3.2 disk if desired. 



Richard Merten may be contacted at 12307 
Oak St., Omaha, NE 68144. 

AlCftO 
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inc 



BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC 

THE TASK* MASTERS 

HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art 4 1 /2" x 6 1 /2", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNIDISK 65/8 and 65/5 

Single and dual drive 8" and 5 1 /4" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS (File Oriented Disk System). 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 
Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 

HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 

HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 

HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 



AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbin Road 
York, PA 1 7403 
{717)845-4954 



Johnson computers 

Box 523 

Medina, Ohio 44256 

(216)725-4560 



Lux Associates 
20 Sunland Drive 
Chico, CA 95926 
(916) 343-5033 



Falk-Baker Associates 

382 Franklin Avenue 

Nutley, NJ 07110 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Box 84 

East Amherst, NY 14051 

(716) 689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11764 

(516) 744-6462 
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AIM User Function Dispatcher 



by Joel Swank 



Overcome the AIM'S limitation 
of three user-definable keys with 
"Function Dispatcher." Up to 85 
different commands may be 
defined. Four samples are 
provided. 

Function Dispatcher 

requires: 

AIM 65 



The AIM 65 monitor reserves three 
keys for user- written commands. Press- 
ing one of these keys causes a jump to a 
vector in RAM page one. You can then 
put a jump to your routine in this vec- 
tor. It is convenient to be able to ex- 
ecute a program with a single key- 
stroke. But the programs available for 
the AIM far outnumber the available 
keys. And most of the AIM disk 
systems use one or two of these keys. 
In addition, relatively inexpensive 16K 
and 32K RAM boards are now available 
that allow plenty of space to keep many 
frequently used utilities resident in 
memory. Some RAM boards even have 
the ability to write-protect sections of 
memory, making them perfect for con- 
taining user extensions of the AIM 
monitor. The AIM needs a way to ex- 
ecute many more than three user com- 
mands; User Function Dispatcher fills 
this need. 

The dispatcher expands one of the 
AIM user function keys to allow execu- 
tion of nearly as many routines as there 
are characters on the AIM keyboard. 
The limit is actually 85 because the 
command table is limited to 255 bytes. 
Listing 1 includes the dispatcher and 
four sample commands executed through 
the F3 key. The command names may 
be multiple characters, but only the 
first character is entered to execute the 
command. For example, to execute the 
clear command you press the F3 key 
and the 'C key; the dispatcher then 



echoes 'CLEAR'. This feature not only 
gives visual confirmation that you are 
executing the proper command, but 
also makes the commands easier to 
remember. 

You may add your own routines to 
the dispatcher by adding entries to the 
command table. Each entry in the table 
is composed of three or more bytes. 
The first byte is the character that must 
be entered to execute the command. 
The rest of the command name follows. 
The last character of the name must 
have the high bit of the byte set to one. 
The name may be as long as you like, 
but the entire table is limited to 255 
bytes. Following this is the two-byte 
address of the start of the routine in 
normal low-byte, high-byte order. The 
table must end with a $00 byte. The 
routine should end with a jump to the 
monitor at address $E1A1. 

The four commands included are 
VIEW, CLEAR, ECHO and TEST. 
VIEW displays a section of memory in 
hex and ASCII. It requests that the 
starting and ending addresses of the 
memory be displayed with the standard 
'FROM = ' and 'TO = ' prompts. It then 
uses the 'OUT= ' prompt to allow you 
to direct the display to any system 
device. If the output device is tape, 
VIEW sends a double CR and a control- 
Z to end the display and closes the file. 
This allows the output to be read back 
by either the AIM editor or BASIC. 
VIEW calls AIM subroutine RCHEK at 
the end of each line to allow you to stop 
or cancel the display. 

CLEAR, a routine to clear the AIM 
editor buffer, allows you to delete all 
text in the editor buffer without 
reinitializing the editor. 

ECHO is a routine that executes 
from the AIM DILINK vector. ECHO 
sends a copy of AIM keyboard/display 
I/O to the TTY port. This allows you 



to work from the AIM keyboard/ 
display but get a copy of everything on 
your TTY or CRT. The ECHO com- 
mand is used to toggle this feature on 
and off. ECHO responds with the stan- 
dard 'ON' and 'OFF' messages. You 
may use ECHO even if you do not have 
a CRT or TTY to slow the display by 
setting the terminal speed to a low 
baud rate. Page 9-32 of the AIM Users 
Guide explains how to set the terminal 
speed. ECHO has no effect when in 
TTY mode. Because of the way ECHO 
is implemented, it will not execute 
from ROM or write-protected RAM. 



TEST is a dummy command to 
allow easy testing of new routines. The 
address in the table for TEST is the 
monitor return, $E1A1. To use TEST, 
replace this address with the address of 
the routine to be tested. Below is a 
sample run of the four commands. 



Sample Run 

<t>VlEW FROM=E000 TO = E022OUT = 

E000 46524F4D FROM 

E004 BD544FBD TO 

E008 202A2A2A *** 

E00C 2A205053 * PS 

E010 20414120 AA 

E014 58582059 XX Y 

E018 592053D3 Y S 

E01C 4D4F5245 MORE 

E020 BF4F4EA0 ON 

<t>CLEAR 

<t>TEST 

<t>ECH0 ON 

<t>ECH0 OFF 



The author may be contacted at 25730 
Beach Dr., Rockaway, OR 97136. 
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Listing 1 






Listing 1 (Continued) 








. * 




0E42 


•* DISPIAY A FORMATTED DUMP OF MEMORY 




■* AIM-65 USER FUNCTION DISPATCHER 
.* 


0E42 
0E42 


.* 








■EXPANDS THE F3 KEY TO DISPATCH UP TO 85 USER COMMANDS 


0E42 

0E42 


•CALLING FORMAT 






•ZERO PAGE 




0E42 
0E42 


• <~>VLEW FRCM= TO= OUT= 










0E42 20 E7 OE VTF1 


JSR BLANK 


•SEND A SPACE 


CMDSAV EPZ ¥2b 
STRL EPZ $26 

strh EPZ $27 

BOTIN EPZ $E1 


■COMMAND SAVE AREA 
•START OF LINE 

•BOTTOM OF TEXT 


0E45 20 A3 E7 
0E48 BO F8 
0E4A AD 1C A4 




JSR FROM 
BCS VIEW 
LDA CURAD 


•GET FROM ADDRESS 
•SAVE ADDRESS 


TEXT EPZ $E3 


START OF TEXT BUFFER 


0E4D 85 26 
0E4F AD ID A4 




STA STRL 
LDA CURAD+1 










0E52 85 27 




STA STRH 






AIM SUBROUTINES 


















0E54 20 A7 E7 VTL 


JSR TO 


■GET END ADDRESS 


: 


TOM EQU $E7A3 


INPUT FROM ADDRESS 


0E57 BO FB 
0E59 20 71 E8 




BCS VTL 
JSR VttEREO 


•GET OUTPUT DEVICE 


i 
( 


PO EQU $E7A7 
«HEK EQU $E907 
ZRIF EQU $E9F0 


INPUT TO ADDRESS 
CHECK FOR INTERRUPT 
SEND CR & LF 


0E5C 4C 65 OE 

0E5F 20 07 E9 MORE 

0E62 20 FO E9 


JMP FIRST 
JSR RCHEK 
JSR CRLF 


•CHECK FOR INTERRUPT 
•NEW LINE 


i 
( 
\ 
i 
i 


STOMA EQU $EA46 
3UTALL EQU $E9BC 
«EREO EQU $E871 
)U12 EQU $E511 
?EAD EQU $E93C 


SEND ACCUM IN HEX 

SEND ACCUM TO AOD 

OPEN OUTPUT DEVICE 

CLOSE TAPE FILE 

INPUT FROM KBD WITHOUT ECHO 


0E65 A5 27 FIRST 
0E67 20 46 EA 
0E6A A5 26 
0E6C 20 46 EA 


LDA STRH 
JSR NUMA 
LDA STRL 
JSR NUMA 


■PRINT ADDRESS 


c 
c 
< 
] 


ZKEROO EQU $E394 
XMIN EQU $E1A1 
OUTPUT EQU $E97A 
3RK3 EQU $E6F1 


DISPLAY 'ERROR' 
RETURN TO AIM 
DISPIAY CHAR IN ACCUM 
DISPIAY 'OFF' 


0E6F 20 E4 OE 
0E72 AO 00 
0E74 Bl 26 ] 
0E76 20 46 EA 
0E79 C8 
0E7A CO 04 


3YLUP 


JSR BLANK2 

LDY #$00 

LDA (STRL),Y 

JSR NUMA 

INY 

CPY #$04 


•PRINT BLANKS 

•GET A CHARACTER 
PRINT IT IN HEX 


l 


3RK4 EQU $E6FA 
3ILINK EQU $A406 


DISPIAY 'ON' 
DISPIAY VECTOR 




IN GROUPS OF 4 


< 


5UTTTY EQU $EEA8 


OUTPUT TO TTY 


0E7C DO F6 
0E7E 20 E4 OE 




BNE BYLUP 
JSR BIANK2 






AIM RAM 




0E81 AO 00 




LDY #$00 


•NOW IN ASCII 








0E83 Bl 26 ASLUP 


LDA (STRL) r Y 


GET A CHARACTER 




^JRAD EQU $A41C 
5UTFLG EQU $A413 




0E85 30 04 




BMI PBL 


•SKIP NON ASCII 


< 




0E87 C9 20 




CMP #$20 


•AND CONTROL CHARACTERS 








0E89 BO 02 




BCS PTO 






EQUATES 




0E8B A9 20 PBL 


LDA ' 


•SUBSTITUTE BLANK 






0E8D 20 BC E9 PTO 


JSR OUTALL 


•PRINT IT 


c 


7FIZ EPZ $1A 




0E90 C8 
0E91 CO 04 




INY 

CPY #$04 






ORG $112 




0E93 DO EE 
0E95 18 
0E96 A5 26 




BNE ASLUP 

CLC 

LDA STRL 


DO 4 TIMES 

ADD 4 TO POINTER 


0112 4C 00 OE 


JMP UFD 


INTT USER F3 VECTOR 


0E98 69 04 




ADC #$04 




0115 






0E9A 85 26 




STA STRL 




OEOO 


ORG $E0O 




0E9C 90 02 
0E9E E6 27 




BCC PCY 
INC STRH 




OEOO 
OEOO 






OEAO A5 27 PCY 


LDA STRH 


CHECK FOR END 






0EA2 CD ID A4 




CMP CURAEH-1 


GET HIGH BYTE OF POINTER 


OEOO 20 3C E9 1 
0E03 A2 00 


JFD JSR READ 
LDX #$00 


GET COMMAND CHARACTER 
CLEAR INDEX 


0EA5 90 BS 
0EA7 DO 09 




BCC MORE 
BNE DFIN 


QUIT IF GREATER 


0E05 85 25 


STA CMDSAV 


SAVE COMMAND 


0EA9 A5 26 




LDA STRL 


EQUAL, CHECK LOW 


0EO7 BD 42 OF 1 


1XTENT LDA CMDTBL,X 


COMMAND FROM TABLE 


OEAB CD 1C A4 




CMP CURAD 




OEOA FO 30 


BEQ NOPOUN 


QUIT ON NULL 


OEAE FO AF 




BEQ MORE 


CONTINUE IF LESS THAN OR = 


OEOC 29 7F 


AND #$7F 


CLEAR HIGH BIT 


OEBO 90 AD 




BCC MORE 




OEOE C5 25 


CMP CMDSAV 


MATCH? 


0EB2 AD 13 A4 DFIN 


LDA OUTFLG 


USER OUTPUT? 


0E10 PO OD 
0E12 


BEQ EXECMD 


YES, GO DISPATCH 


0EB5 C9 50 PRCHEK 


CMP 'P 


PRINTER? 






0EB7 DO 06 




BNE TAPCK 


NOPE 


0E12 
0E12 
0E12 BD 42 OF S 


SKIP TO NEXT COMMAND 




0EB9 20 FO E9 




JSR CRLF 


PRINT LAST LINE 


JKLUP LDA CMDTBL,X 


GET A CHARACTER 


OEBC 4C Al El 
OEBF 

OEBF C9 54 1 




JMP CCMIN 




0E15 30 03 


BMI SKIPAD 


QUIT IF HIGH BIT IS 1 


CAPCK 


CMP 'T 


TAPE? 


0E17 E8 
0E18 DO F8 


INX 

BNE SKLUP 


NEXT CHARACTER 1 


0EC1 DO 09 
0BC3 20 D6 OE 




BNE UCHK 
JSR ENDUO 


NOPE 

SEND EOF CHARS 


0E1A E8 E 


SKIPAD INX 


SKIP ADDRESS 


0EC6 20 11 E5 




JSR DU12 


YES, CLOSE IT 


0E1B E8 
0E1C E8 


INX 

INX 




0EC9 4C Al El 

OEOC 

OEOC C9 55 I 




JMP CCMIN 




0E1D DO E8 

0E1F 

0E1F BD 42 OF I 

0E22 48 


BNE NXTENT 




JCHK 


CMP 'U 


USER? 


EXECMD LDA CMDTBL,X 


GET A COMMAND CHARACTER 


OECE'DO 03 
0ED0 20 D6 OE 




BNE OUT 
JSR ENDUO 


NO 

YES, SEND EOF CHARS 


PriA 




0ED3 4C Al El OUT 


JMP CCMIN 


RETURN TO AIM 


0E23 20 7A E9 


JSR OUTPUT 


ECHO CHARACTER 


0ED6 
0ED6 








0E26 68 


PIA 




ENDUO: 


SEND EOF CHARACTERS TC 


) OUTPUT DEVICE 


0E27 30 03 


BMI GETADD 


QUIT IF HIGH BIT ON 


0ED6 








0E29 E8 


INX 




0ED6 20 FO E9 I 


3JDUO 


JSR CRLF 


END LINE 


0E2A DO F3 


BNE EXECMD 


NEXT CHARACTER 


0ED9 A9 1A 




LDA #CTLZ 


SEND A CONTROL ' Z ' 


0E2C E8 ( 


3BTADD INX 




OEDB 20 BC E9 




JSR OUTALL 




0E2D BD 42 OF 


LDA CMDTBL,X 


MOVE ADDRESS OF ROUTINE 


OEDE 20 FO E9 




JSR CRLF 


AND A COUPLE OF CR'S 


0E30 8D 1C A4. 


STA CURAD 


TO CURAD 


0EE1 4C FO E9 




JMP CRLF 




0E33 BD 43 OF 


LDA CMDTBL+1,X 




0EE4 








0E36 8D ID A4 


STA CURAD+1 




0EE4 20 E7 OE I 


HANK2 


JSR BLANK 




0E39 6C 1C A4 


JMP (CURAD) 


JUMP TO IT 


0EE7 A9 20 I 


HANK 


LDA #$20 




0E3C 






0EE9 4C BC E9 




JMP OUTALL 




0E3C 


UNKNOWN COMMANDS 




OEBC 








0E3C ; 






OEEC 


* 






0E3C 20 94 E3 t 


IOFOUN JSR CKEROO 


DISPIAY 'ERROR' 


OEBC 


* CLEAR— 




0E3F 4C Al El 


JMP CCMIN 


RETURN TO AIM 


OEEC 


* CLEAR THE EDIT BUFFER 




0E42 ; 






OEEC 


* 






0E42 ; 


* 




OEBC 








0E42 ; 


* VIEW — 




OEEC 


CALLING FORMAT: 
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Listing 1 (Continued) 






OEEC 




• <*>CLEAR 




OEBC 










OEEC A5 E3 


CLEAR 


LDA TEXT 


rCOPY BUFFER START ADD 


OEEE 85 El 






STA BOTLN 


• TO TEXT END ADD 


OEFO A5 E4 






LDA TEXT+1 




0EP2 85 E2 






STA BOTIN+1 




0EF4 A9 00 




__ 


LDA #$00 


;FIAG END OF TEXT 


0EP6 A8 






TAY 




0EF7 91 E3 






STA (TEXT) ,Y 




0EF9 4C Al El 




JMP COMIN 


rRETCRN TO AIM 


OEPC 










OEPC 




.* 






OEPC 




•* ECHO TO TTY ROUTINE 




OEEC 




,* 






OEFC 










OEFC 




CALLING FORMAT— 




OEFC 










OEFC 




<">ECHO ON 




OEFC 




<">ECHO OFF 




OEFC 










OEFC 48 


I 


XHO 


EHA 




OEFD 29 7F 






AND #$7F 


; CLEAR HIGH BIT 


OEFF C9 OD 






CMP #$0D 


;CR? 


0F01 DO OA 






ENE NOIF 


;NO. SKIP IT 


0F03 20 A8 


EE 




JSR OUTTIY 


;YES, SEND IT 


0F06 A9 Oh 






LDA #$0A 


rSEND IF 


0F08 20 A8 


EE 




JSR OUITIY 




OFOB 68 






PIA 




OFOC 60 






RTS 




OFOD 68 


t 


IOLF 


PIA 




OFOE 4C A8 


EE 




JMP OUITIY 


; DISPLAY CHAR 


0F11 










0F11 




ROUTINE TO TOGGLE ECHO ON AND OFF 


0F11 










0F11 20 E7 


OE 1 


\>3G 


JSR BLANK 


;SEND A SPACE 


0F14 AD 07 


A4 




LDA DILINK+1 


;SAVE CURRENT CONTENTS 
IF DILINK 


0F17 48 






EHA 




0F18 AD 06 A4 




LDA DILINK 




0F1B 48 






EHA 




0F1C AD 40 


OF 




LDA SAVE 


?MOVE CONTENTS OF 
SAVE AREA 


0F1F 8D 06 


A4 




STA DILINK 


; TO DILINK 


0F22 AD 41 


OF 




LDA SAVE+1 




0F25 8D 07 


A4 




STA DILINK+1 




0F28 68 






PIA 




0F29 8D 40 


OF 




STA SAVE 


7 RESTORE PREVIOUS 
CONTENTS OF DILINK 


0F2C 68 






PIA 


; INTO THE SAVE AREA 


0F2D 8D 41 


OF 




STA SAVE+1 




0F30 C9 OE 






CMP /ECHO 


rDID WE SAVE ECHO ADD? 


0F32 DO 06 






ENE ON 


;N0, DISPLAY 'ON' j 


0F34 20 Fl 


E6 




JSR BRK3 


;YES, DISPLAY 'OFF' 


0F37 4C Al 


El 




JMP COMIN 




0F3A 20 FA E6 


1ST 


JSR BRK4 


j DISPLAY 'ON' 


0F3D 4C Al 


El 




JMP COMIN 




0F40 










0F4O PC OE 


S 


AVE 


ADR ECHO 


; MAKES ECHO NON-RCMMABLE 


0F42 




* 






0F42 




* CCMMAND TABLE 




0F42 




* 






0F42 56 49 


45 C 


MDTBL 


ASC 'VIE' 


;VIEW 


0F45 D7 






BYT $D7 


; "W OR $80 


0F46 42 OE 






ADR VIEW 




0F48 43 4C 


45 




ASC 'CLEA' 


; CLEAR 


0F4B 41 










0F4C D2 






BYT $D2 


;'R" OR $80 


0F4D EC OE 






ADR CLEAR 




0F4F 45 43 


48 




ASC 'ECS' 


;ECHO 


0F52 CF 






BYT $CF 


;'0' OR $80 


OF53 11 OF 






ADR TOGG 




0F55 54 45 


53 




ASC 'TBS* 


fTEST 


0F58 D4 






BYT ?D4 


; 'T' OR $80 


0F59 Al El 






ADR COMIN 




0F5B 










0F5B 




ADD MORE COMMANDS HERE 




0F5B 










0F5B 00 






BYT $00 


rMUST END WITH ZERO 


0F5C 










0F5C 






END 


JNCftO 



WHEN DID WE ORDER IT? 
WHERE IS IT LOCATED? 
HOW MANY DID WE BUILD? 
WHAT IS MY INVENTORY WORTH ? 
WHAT ARE MY PRODUCTION COSTS? 



ANSWER THESE QUESTIONS 

AND MORE 

WITH 

KEYSTONE DATA'S 

INVENTORY MANAGEMENT SYSTEM 



BILL OF MATERIALS PROCESSING 
AUTOMATIC OR MANUAL REORDERING 
REVIEW OF DAILY ACTIVITY 
MATERIAL & LABOR COSTING 
DISTRIBUTED PROCESSING CAPABILITY 
REMOTE SITE COMMUNICATIONS 
LINE ITEM CROSS REFERENCE BY - 

ASSEMBLY 

VENDOR 

PART TYPE 
COMPREHENSIVE USER'S MANUAL 

AVAILABLE FOR 
HDE DISK SYSTEMS 

CONTACT - 




EVSTQNE 



DATA CONSULTANTS, INC. 

CUSTOMER SERVICE 
P.O. BOX 606 
YORK, PA 17405 

717-848-5666 

MEMBER: 

York Area Chamber of Commerce 

National Federation independent Businesses (N.F.I.B.) 
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WITH APPLESOFT? 



B.E.S.T. Our original Applesoft Optimizer (AOPT) has now been en- 
hanced to bring to the Applesoft programmer the most comprehen- 
sive set of software toots available today — B.E.S.T. The BASIC 
ENHANCED SOFTWARE TOOLS is a machine language program to 
aid in writing, analyzing, and debugging Applesoft Basic programs. 
B.E.S.T. will certainly increase programmer efficiency for improved 
productivity. B.E.S.T. offers: 1) Variable Cross-Reference, 2) Line 
number Cross-Reference, 3) A Complete Cross-Reference, 4) Opti- 
mize variable names with recognition of both short (two character/ 
Applesoft standard) and long labels, 5) REM Optimizer — with an 
option to "protect" specified REM statements, 6) Line Optimizer to 
join short instruction lines of specified length, 7) Merging two pro- 
grams, 8) Automatic line numbering, and 9) A powerful, yet easy to 
use Renumber function. Implementation of B.E.S.T. can reduce 
memory requirements by up to 50% and increase execution speed of 
Applesoft programs by up to 100%. B.E.S.T. is a low cost alternative 
to an Applesoft compiler. 

B.E.S.T. requires a 48K Apple ll/ll + , Applesoft in ROM or Language 
card, and DOS 3.3 $40.00 

EDIT-SOFT. A powerful, yet affordable, line editor for Applesoft. Us- 
ing EDIT-SOFT, you can drastically cut your programming time. EDIT- 
SOFT not only contains the standard line editor features like inserting 
or deleting characters, moving to a specific character, entry of lower 
case letters, going to the beginning or end of a line, and displaying 
control characters, but it also has the advanced features that will 
prove indispensable: 

• AUTO LINE NUMBERING 

• SPLICING two lines together 

• AUTOMATIC CHARACTER COUNTER for quoted strings 
makes screen formatting a snap 

• EDITING LINES as they are being TYPED 

• A STATUS LINE keeps you constantly aware of which 
options are currently being used 

• Up to TWENTY MACROS available at any time 

• MACRO EDITING AT ANY TIME 

• HELP PAGES available when needed 

Compare the features of EDIT-SOFT to other line editors, then com- 
pare the price. No other line editor has so many features at such a 
reasonable price! 

EDIT-SOFT requires 48K of RAM, Applesoft in ROM (language and 
RAM expansion cards are fine), and DOS 3.3. ONLY $30.00 

APLUS. The original Structured Basic enhancement for Applesoft 
Basic. APLUS provides the tools that will increase your efficiency, 
simplify program rewriting, and make your program flow more 



understandable. No longer do you have to remember the line 
numbers of subroutines and procedures; instead, just "DO 
GRAPHIT" and APLUS does the rest. APLUS adds the following 
structured programming commands to Applesoft basic: 
WHEN . . ELSE . . FIN, UNTIL, WHILE, CASE, SELECT, and OTHER- 
WISE. Multi-line IF. . FIN statements are also supported. APLUS 
includes functions to output indented listings to clarify logic flow and 
converting source code to standard Applesoft commands. 
Requires Applesoft, 32K of RAM, and DOS 3.3 .. . Only $25.00. 

BUILD USING. Do you have trouble printing charts, reports, or for- 
matting numbers on the screen? If you do, BUILD USING can solve 
your problems. BUILD USING is a powerful Applesoft utility which 
provides a "print-using" type routine for numbers and strings. By 
creating simple "formats", you tell BUILD USING how to format the 
output. The output from BUILD USING are strings which may be 
printed, written to disk, saved for later usage, or even reformatted. 
With BUILD USING, you can choose how many digits should be 
displayed to the left and right of the decimal point, and even fill the 
leading positions with the character of your choice. For example, you 
can print the number '157.23' and '157.2' or '000157.230', or 
'****$157. AND 23/100 DOLLARS', or hundreds of other ways 
(including exponential formats). Working with strings is just as easy. 
Also included are three levels of error trapping, so you can correct 
numbers that cannot fit into your specified format. 

Utilities like BUILD USING are usually difficult to use because they 
must be located in one memory location (usually between DOS and 
the DOS file buffers), they cannot be used with your favorite editor or 
other special routines. BUILD USING does not have this limitation, as 
it can be easily located in many different memory locations: 1) the 
"standard" between DOS and DOS file buffers, 2) at HIMEM, 3) 
APPENDED to your Applesoft program, or 4) anywhere else in 
memory. Appending BUILD USING to your program is as simple as 
EXECing a TEXT file. BUILD USING uses the "CALL" command 
thereby leaving the ampersand vector free for your own use. 
BUILD USING requires Applesoft in ROM (Language cards are fine), 
DOS 3.3 and a minimum of 32K ... Only $30.00 







See you at Boston Applefest '82 — Booth 324 

Applesoft is a registered trademark of APPLE Computer Company • 



Sensible Software 

I 6619 Perham Drive Dept. MO 
' West Bloomfield, Michigan 48033 

(313)399-8877 

Please specify program desired. 
Visa and Mastercard Welcome. Add $1.25 postage and handling per diskette. 
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Additional Output Ports 

for KIM 



by S. Henning 



This hardware modification 
allows your KIM to support 
seven additional output ports. 

Ralph Tenny described, in the May 1980 
issue of MICRO, a technique to increase 
the number of usable I/O ports on the 
KIM-1 without adding additional hard- 
ware. The KIM-1 features 15 user ac- 
cessible I/O lines. It has an additional 
15 lines which are dedicated to the 
built-in keyboard and LED display. Ten- 
ny described how to use them as addi- 
tional input lines. 

My requirement was different. I 
needed additional output lines. I used 
seven lines to attach an ASCII keyboard 
— three more for Lew Edwards' Ziptape, 
plus a memory management unit. 



So, when I wanted to add an output 
printer, I needed an additional seven 
output lines. Rather than adding an ad- 
ditional 6530 or 6522, I decided to use 
the approach described by Ralph Tenny. 

Inspection of figure 3.5 in the KIM-1 
user manual indicated a problem. The 
important parts are reproduced in figure 
1 . Port A of the 6530 nicely provides the 
required seven lines; they are even ac- 
cessible at the application connector. 
However, they are already loaded with 
one standard TTL load, so even adding a 
74LSxx circuit would exceed the max- 
imum permissible load. 



This is the solution: U17 and U26 in 
figure 1 go only to resistors R26 through 



R32, which are 82 Ohm each. An addi- 
tional 74LSxx load can be added to the 
output of U17 and U26 without over- 
loading the circuit. Figure 2 shows the 
location of these resistors on the KIM-1. 
They are readily accessible, and solder- 
ing seven wires to them is done easily. 

These are the required connections: 



Port 


Connection to 


PAO 


R26, top side 


PA1 


R27, left side 


PA2 


R28, left side 


PA3 


R29, left side 


PA4 


R30, left side 


PA5 


R31, top side 


PA6 


R32, top side 



Listing 1 

A9 


3F 




LDAIM 


3F 




8D 


43 


17 


STA 


PBDD 




A9 


15 




LDAIM 


15 




8D 


42 


17 


STA 


SBD 


shut off LED 


A9 


7F 




LDAIM 


7F 


initialize 


8D 
AD 
8D 
A9 


41 
xx 

40 
00 


17 
xx 

17 


STA 
LDA 
STA 
LDAIM 


PADD 

xx 

SAD 

00 


port A to output 
get byte 
output byte 
initialize 


8D 

60 


41 


17 


STA 
RTS 


PADD 


port A to input 



The subroutine in listing 1 outputs 
one byte to the new port. 

Because of U17 and U26, the output 
byte will be inverted. Re-inverting it by 
hardware or by software is up to the user. 

The author may be contacted at Howard 
Johnson's Motor Lodge, 290 Tarry town 
Road, Elmsford, NY 10523. 

JMCftO 



Figure 1 



Figure 2 



KIM-1 LED DISPLAY 
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R26-R32, 82 EACH 



U 1'7 AND U26 



I 



U- 



KIM-1 KEYBOARD 



ti— 







U17 




PA3 

PA2-0 

PA1 o — 


R29 f— O 
R28 — o 




R 

3? 




R27 j— O 


I 












PA0P 


9PA5 












R ■ 


R 














26 


31 




I 


M 


I I 


I I 


11 1 


i * 


A 




R 


! R 


R 


R 


R 


R 


R 


R 


R R 


R 






41 


19 


42 


r° 


43 


21 


44 


22 


45 P3 


46 







1TTT II II II II 



Q1 Q2 Q3 Q4 Q5 Q6 
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Build performance 

into your system using the 

OS-9 ' toolbox! 




THE OS-9 OPERATING SYSTEM 

Unix* -based, multitasking, modular, and versatile: these key features are some of the 
reasons why more 6809 computer manufacturers have selected OS-9 as their standard 
operating system than any other O.S. And OS-9 has been put to work by thousands of 
users in almost every conceivable computer application in business, science, in- 
dustry, education, and government. 

Your operating system should not be a barrier between you and your com- 
puter! OS-9 is very friendly and easy to use. Due to its modular structure it's 
easy to customize, plus its comprehensive documentation shows you exactly 
how to interface it to just about any I/O device. 

OS-9's advanced features unleash the performance potential of almost any 
6809 computer— large or small. In many respects the OS-9/6809 combina- 
tion is more powerful than many minicomputers! 

There are two basic versions of OS-9. Both have the same basic features 

and capabilities. OS-9 Level One runs on small to medium sized systems having up to 

64K memory. The Level Two version runs on medium to large size systems having 

memory management hardware and up to 1 megabyte of memory, and includes record and 

file locking for multiuser database applications. 

Here are just a few reasons why you should insist on OS-9 for your microcomputer system. 



I Over 40 utility commands 
I Friendly "Shell" command interpreter 
I Tree-structured multilevel file directories 
I Full timesharing support with log-in and file security 
I Fast, secure random and sequential access files 
I Comprehensive English language error messages 



I Compact real-time multitasking executive 

■ Hardware or software memory management 

■ Device independent interrupt-driven I/O 

■ Fully ROMable for small control systems 

■ Standard versions available from manufacturers of most 
popular 6809 computers 



OS-9 PASCAL™ LANGUAGE 
COMPILER 

■■I The OS-9 Pascal language compiler is 

^^^~ I the most complete and versatile Pascal 

1 W f^W available for the 6809. OS-9 Pascal has 

I ^*\^M tne unusua I capability of generating 

H w^ NHI P-code for interpretive execution while 

| Wf j^^\ debugging OR highly optimized 6809 as- 

^r ^Efl 1 sembly language source code output for 

maximum speed. Another feature of OS-9 Pascal is its "virtual 

memory" P-code interpreter that lets you run incredibly large 

Pascal programs. OS-9 Pascal meets the ISO 7185.1 Standard 

and the complete Wirth/Jensen specification. 

CIS COBOL™ COMPILER 

6809 CIS Cobol is a compact, interactive 
/ and standard Cobol language compiler 
W & ° f which is ideal for the most demanding 
W o/ business applications. Standard features 

are: ISAM, Debug, ACCEPT/DISPLAY, and 
Interprogram Communications modules. 
CIS Cobol is the preeminent microcom- 
puter Cobol in the industry, and the OS-9 version retains full 
compatibility with CP/M applications software, CIS 
Cobol meets the ANSI 1974 Level One COBOL 
standard and is GSA certified. Also available is Micro 
Focus' FORMS 2, an optional automatic program 
generator that lets you interactively design screen- 
oriented applications with ease. 






BASIC09™ STRUCTURED BASIC 
INTERACTIVE COMPILER 

Basic09 is the fastest and most com- 
prehensive full Basic language available 
for the 6809. It combines standard Basic 
with the best features of Pascal. It is a 
unique interactive compiler that com- 
bines compiler speed, interpreter friend- 
liness, and superlative debugging facili- 
ties. RunB, a ROMable run-time system for compiled Basic09 
programs is now available as an option. 

C LANGUA GE COMPILER 

H^H ■ C— the systems language of the future— 
■^Bfc^H | is here today on OS-9. This is a complete 
K H_^^B I implementation of the Unix Version 7 C 
^^^*^W I language including INT, CHAR, SIGNED, 
i ^^^ ^H UNSIGNED, FLOAT and LONG data types, 
I K^^J^ structures, unions, standard C library, 
I H ^^fei and a full preprocessor with macro defi- 
nitions. Generates fully reentrant 6809 assembly language 
source code output. 

For information contact your computer supplier, or 



MICROWARG. 

Microware Systems Corporation 

5835 Grand Avenue, Des Moines, Iowa 50312 

Phone 515-279-8844 • Telex 910-520-2535 
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Add a VIA 
and Speech Synthesizer 
to the Color Computer 



by William C. Clements, Jr. 



Add two user-accessible, 8-bit 
bidirectional I/O ports to your 
color computer and interface an 
inexpensive speech synthesizer. 

Requires: 

TRS-80 Color Computer 

The Radio Shack Color Computer is 
quite a machine for the money, as re- 
cent reviews in several magazines have 
indicated. Moreover, it's an easy and 
inexpensive way to become acquainted 
with the MC6809 microprocessor. 

Since the Color Computer is still 
relatively new, the Color devotee must 
devise many of his own modifications 
and software. More often than not, he 
is left to gaze longingly at dozens of ar- 
ticles in the "just what I need except 
it's for another computer" category. 

I began microcomputing on a well- 
expanded KIM system, and have 
several KIM-driven peripherals that 
would work well with the Color Com- 
puter. I had also become used to KIM's 
parallel ports with individually pro- 
grammable I/O lines and the hardware 
timer. The Color Computer does have a 
serial port and joystick A/D converters, 
but some tasks are easier done with 
TTL-compatible bidirectional I/O ports. 

Fortunately, the cartridge connector 
provides access to data and address 
busses and all important control 
signals, as well as to a few handy 
features like decoded address selects. 
It's easy to expand the machine with 
the same hardware you would add to 
the busses of a member of the AIM/ 
SYM/KIM (ASK) computer family. In 
fact, you could adapt many published 
applications for the single-board 6502 
machines to the Color Computer if 
there were 6522- or 6530-style I/O 
lines and timers. You would need to 
convert their 6502 driver software into 
either Color BASIC or 6809 machine 



code. Then devices such as parallel- 
data printers, the MTU music syn- 
thesis D/A unit, the Optimal Tech- 
nology Co. EPROM programmer, and 
the Sweet-Talker speech synthesizer 
sold by Micromint, Inc., could be used 
with the Color Computer. 

This article shows you how to con- 
nect a 6522 Versatile Interface Adapter 



(VIA) to the Color Computer through 
its cartridge connector. BASIC driver 
routines and interface connections for 
the Sweet-Talker illustrate a simple ap- 
plication for the new I/O ports. 

The VIA Interface Board 

The VTA is well known to ASK com- 
puter users, thanks to Dr. Dejong's 



Figure 1: Circuit Diagram and Dimensions for the VIA Board 



70mm 
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PA1 
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PA4 
PA5 
PA6 
PA7 

PBO h 
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PB2 I 
PB3 I 
PB4 I 
PBS I 
PB6 h 
PB7 I 

CA1 p 
CA2 h 
CB1 h 
CB2 i- 

GND 
(33) (34) 



0.1 ^IF 



» 

2 > 

4 

5 > 

6 

» 

7 

»■ 

9 



PORT 
A 



TO 

OUTPUT 

CONNECTOR 



) CHIP SELECT 
AT SFF40 



Circled numbers are pinout designations for the edge 
connector in the Color Computer's cartridge slot. The 
non-circled numbers are I.C. pinouts. 
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MICRO articles i » 2 and his excellent 
book 3 , and by its use in the SYM and 
AIM machines. Adding the VIA to the 
Color Computer provides two 8-bit 
parallel I/O ports with individually 
programmable bits, two interval timers 
with several different modes of use, and 
parallel-serial data interconversion (if 
you need more capability than the Col- 
or Computer's serial port can provide). 
These items, plus the serial output, the 
cassette interface, and the two joystick 
A/D channels already on the machine, 
give you quite a versatile system. 



Figure 1 is a simple schematic 
diagram of the 6522 board. You will 
have to provide edge fingers to plug into 
the female edge-connector in the car- 
tridge compartment. I took a piece of 
un-etched double-sided circuit board 
stock, cut it to the approximate dimen- 
sions of the printed circuit board inside 
the Tandy cartridges (again see figure 
1), and laid down 40 strips of 1.5 mm 
wide tape, 20 per side with 0.1 inch 
spacing, on the edge. A couple of wider 
strips at the board sides were put down 
to make + 5V and ground busses. I 
made my own resist tape by slitting a 
piece of Scotch Filament tape with a 



AT LAST... 



...raR 



□SI 



For investors 
and financial managers 

Stock portfolio analysis 

$150.00 

• in your office - instant valuations 

•compound growth measurement 

•pertinent company operating statistics 

• input data electronically 

Stock financial 
statement analysis 

$250.00 

• input your interpretation 

of financial data 

•analyze up to 10 years of data 

•see mean, trend and stability 

•data stored on DBM system 

• input data electronically 

On-line data retrieval 

$50.00 

Accounting package 

$150.00 
DBM system 

$200.00 

for 8" floppy/hard disc 
under 0S65U 

write for details 

Genesis Information 
Systems, Inc. 

P.O. Box 3001 • Duluth, MN • 55803 
Phone 218-724-3944 



Listing 1 



1 DATA57,9,31,62 

2 DATA9, IS, 31, 62 

3 DATA4 1,52,52,43,62 

4 DATA25, 51 , 24, 49, 43, 62 

5 DATA25,51, 12, 3?, 27, 54, 42, 58, 62 

6 DATA31, 37, 44, 25,39, 28*62 
S A=65344 

IB DIMZ<108:> 

20 POKE A+3, 255: FOKEA+2, 6 

3 P =6 3 : GO SUB 1 G 09 

40 FORN= 1 T035 : RE ADZ < N > : NEHTN 

5u N-N-l 

60 FOR I = 1 TON : P=Z C I > : GOSUE 1 000 

70 HEXTISSTOP 

1 ©00 POKE A , G : POKE A+ 1 , p: POKEA , 2 

1010 IF '::PEEKXA::< AND 1> THEN RETURN ELSE 1010 



Listing 2 



1 'U I A AT *FF40 
5 h=65344:N=0 

10 dimzcigg:* 

15 "port a = outputs? peg - input, pb1,pe2 = output 

20 POKEA+3 , 255 : POKEA+2 , 6 

25 'SEND STOP-PHONEME £ SILENCE SVNTHESIZER 

3 F=63 : G OSUB 1 G G G 

33 'INPUT PHONEME CODES 

36 'WHEN READV TO HEAR THEM, INPUT ANY HE6ATIUE NO. 

40 h =N+ 1 = I NPUT Z < N > : I FZ ( N > = > G THEN 4 

3G N=N-1 

55 'SEND PHONEME CODES OUT TO SVNTHESIZER 

60 FOR 1 = 1 TON : P=Z < I :.' '- 60SUB 1 GGG 

7 G NEXT I : N = O : G T O 3 G 

999 'TAKE ENABLE AND STB LOU 

1000 POKEA, G 

1GG5 ' PLACE PHONEME CODE ONTO PORT A 

1G1G POKEA+1 ,P 

1 G 1 5 7 T p KE STB HIGH AG A I N 

1G2G POKEA, 2 

1025 'RETURN WHEN A.-R GOES HIGH 

1G3G IF ':: PEEK ':: A > AND 1> THEN RETURN ELSE 103G 



razor blade. This tape is cheaper than 
commercial resist, sticks very tightly 
to copper, and is impervious to ferric 
chloride etchant. 

After etching, I drilled the holes to 
accommodate a low-profile 6522 socket. 
Then the socket was epoxied in place 
and the circuit was wired point-to- 
point with wire-wrap wire and a fine 
soldering pencil. Unfortunately, there 
is not enough vertical clearance inside 
the cartridge slot of the computer to 
use wire-wrap construction. 

On my unit, the port lines, control 
lines, and the + 5 V, + 12V, and ground 
lines were all brought out to a right- 
angle DB-25 connector mounted at the 
rear center of the circuit board. You 
may prefer to use a less expensive 
24-pin DIP socket or a ribbon cable in- 
stead. I didn't plan to use timer- 
generated interrupts, so I left the IRQ 
pin unconnected. 

Since there was a handy chip-select 
signal decoded for $FF40-$FF5F avail- 
able on the cartridge connector, I used 
it to select the VIA. I added just one 
6522, so no further decoding was done. 
This address space will hold two VIAs 
if you want to add some logic to dis- 
tinguish between the addresses $FF40 



and $FF50. In my case, register of the 
VIA is addressed at $FF40 with address 
image at $FF50, register 1 at $FF41 
with image at $FF51, and so forth. 

For protection and insulation, the 
circuit board was enclosed in a 
homemade plastic box about the size of 
a Tandy cartridge. A slot was cut to 
allow the contact fingers to protrude 
through the front of the box. I also cut a 
hole for the DB-25 output connector in 
the rear. 

Now Make It Talk 

As a simple and entertaining exam- 
ple of using the 6522 to interface a non- 
Radio Shack peripheral, let's hook up 
the Sweet-Talker speech synthesizer 
recently described in a construction ar- 
ticle by Ciarcia 4 and also marketed as 
an assembled unit by Micromint, Inc. 
This device, based on the Votrax SC-01 
synthesizer chip, is simple to build and 
use. Speech is generated by cascading 
phonemes together; there are 64 gener- 
ated by the SC-01. These phonemes are 
called out by placing a 6-bit phoneme 
code onto the Sweet-Talker's data lines 
(P0-P5) and strobing the synthesizer. 
Two pitch- control lines, II and 12, are 
available to vary phoneme inflection; 
their use is optional. 
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The data lines (P0-P5) and inflec- 
tion bits (II and 12) together comprise 
an 8-bit speech-configuration word that 
is provided in my setup through Port A 
of the VIA, P0-P5 being driven by PAO- 
PA5 and II, 12 by PA6 and PA7. In addi- 
tion, three control lines must be inter- 
faced. The synthesizer signal A/R re- 
quires an input lin e and is connected to 
PBO. The STB and enable signals of the 
Sweet-Talker are driven as outputs 
from the computer and are connected 
to PB1 and PB2, respectively. The 
power requirements are + 5 and +12 
volts at current levels easily handled by 
the Color Computer's power supply. 

The Sweet-Talker synthesizer must 
be driven as follows (see reference 1 for 
detailed explanation and exact defini- 
tion of the control signals): initialize 
the sy nthesizer by driving STB and 
enable both low. Place 6-bit phoneme 
code onto P0-P5 and 2-bit inflection 
code (if used) on II and 12. Latch data 
into unit by applying rising edge of 
positive-going pulse to STB. Data must 
be stable 450 ns prior to rising edge of 
STB, and STB must have been low at 
least 100 pts before it returns high. 
About 500 ns after rising edge of STB, 
A/R goes low, indicating that the syn- 
thesizer chip is busy. When A/R is 



found again to be high, the chip is ready 
to accept another phoneme code. 



These functions can easily be im- 
plemented using a short BASIC or 
machine- language program. To find out 
how the synthesizer sounds, attach it 
to the VIA as indicated above, then 
enter and run the program in listing 1 . 

The program in listing 2 lets you ex- 
periment with the synthesizer by in- 
putting a series of phoneme codes and 
then listening to the speech they pro- 
duce. With the phoneme table in Ciar- 
cia's article and this program, you can 
generate just about any speech you 
want. Don't forget to convert the hex 
codes given in the article into decimal 
before entering them. 

In this article, I have attempted to 
show how easy it is to connect parallel- 
mode peripherals to the Color Com- 
puter, and to suggest that Color Com- 
puter users can now make use of the ex- 
tensive literature covering 6502-based 
computer peripherals. If I have lessened 
even a little the frustration of the Color 
owner in seeing so many goodies out 
there for other machines, then I will 
rate this effort a success. 
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EXCEL-9 

The Ultimate 68oq Board for Aj* 

from Esdec Corporation, a subsidiary of ESD LAB Co. Ltd. 

• EXCEL-9 FLEX, a famous DOS, Assem 

• Also able to use Apple DOS. 

• 8KB versatile monitor ct in ii 

" Can handle all Appk 




chine code routine 

iOFT/MERG, etc., are 
coming soon. 

Ask yob 

Norell Datl D@rp» Dealer Inquiries are Invited. 

3400 Wli 

pS ductory $450.00 f Z£Z d&FLEX 

(Sales tax not included) 



Los Angeles, 

(213)257-2026 

United States Distributor 



FLEX is a trade mark of Technical Systems Consultants, Inc. 
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Uersa Computing 



PRESENTS 




VersaWriter 

DRAWING 
TABLET 




COMPLETE HARDWARE / SOFTWARE GRAPHICS SYSTEM - $299 



• Hi-Res & Med-Res Draw 

• Paint Brush-5 Sizes 

• Point to Point / Line Draw 

• Air Brush 



• Color Fill-In 

• Change Color Hue & Intensity 

• Reverse Picture 

• Scaling 



• Split / Full Screen 

• Save / Load / Erase 

• Text Writer 

• Fix X or Y Axis 



Requires: Atari 300, 32K RAM, Basic Language Cartridge, Disk Drive 



GRAPHICS 
COMPOSER 

PADDLE / JOYSTICK 
GRAPHICS SOFTWARE - $39,95 

• Draw on Hi-Res Screens 7 or 8 

• Save Pictures on Disk or Cassette 

• Create Player/ Missile Shapes 
Automatically 

• Geometric Figures Program 

• Add Text to Screen 

Requires: Atari®800, 32K RAM, Basic Language Cartridge, 
Disk or Cassette 



GLOBE MASTER 

COMPLETE HI-RES 
GEOGRAPHY GAME - $29.95 

• 8 Hi-Res Color Maps 

• U.S.-Europe-World-Asia-Africa-Australia 

• Countries-Cities-Capitals-Oceans- 

Rivers-Mountains, Etc. 

• Several Skill Levels 

Requires: Atari®800, 32K RAM, Basic Language Cartridge, 
Disk 

ATARI "is a registered trademark of Atari Inc. 



MIND BOGGLERS 



THREE STRATEGY GAMES 



• Capture 

• Mystery Box 

• Simon Says 



CASSETTE $15.95 DISK $19.95 

Requires: Atari®400, 16K RAM, Cassette 
Atari 800, 24K RAM, Cassette or Disk 



Uersa Computing,lnc 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91320 (805)498-1956 
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The Single Life 



By Brad Rinehart 



More About Disk BASIC 

Last month we discussed the se- 
quential and snapshot file structures. 
This month I want to teach you the ins 
and outs of RANDOM files. 

The definition of a random file de- 
notes that it takes the same amount of 
time to access the last record in the file 
as it takes to access the first record. To 
access the last record of a sequential file, 
all preceding records must first be read. 

To date, the most widely used 
method for determining where a record 
is located in a random file is to define a 
fixed record length (in bytes). Then you 
index the number of bytes times the 
record number into the file. 

HDE disk BASIC defines this record 
length as 128 bytes, which is the length 
of one sector. The size of the random 
file is limited only by the amount of 
disk space. On an 8" floppy this means 
about 1975 records. 

In HDE Disk BASIC, random files 
may be either open ended or reserved. If 
the file is open ended, it may continue 
to grow until it runs out of disk space. 
By reserving the file with the RSV com- 
mand, a unique area of the disk, X 
number of sectors, may be assigned to 
the file. I prefer to reserve the file. In 
figure 1 I illustrate three random files. 
The first contains ten records, the sec- 
ond eight records, and the third three 
records. 

Let's assume we opened FILE 1, 
wrote ten records, and then closed it. 
Next we opened FILE 2, reserved it for 
eight records, then opened FILE 3 and 
reserved it for three records. If we try to 
write record nine to FILE 2 or record 
four to FILE 3, BASIC will return an er- 
ror because we tried to write past the 
end of the reserved area. However, 
since we did not reserve FILE 1, we 
could open it and write records 11 and 
12 to the file. The shaded area shows 
where the data would be put. As you 
can see, we would overwrite informa- 
tion in FILE 2 which could cause some 
drastic problems. Therefore, reserve 
the file for the maximum number of 
records you expect to write. 



To review the procedure thus far, 
we have opened, reserved, and closed 
files. The instructions for this pro- 
cedure would look like: 



10 FILES3 
20 OPEN "FT, 
30 RSV1, 50 
40 CLOSE 1 



1, "FILE V 



where the FILES command declares 
that we expect a maximum of three 
files to be OPEN at one time. This 
reserves space in memory for three 
256-byte file buffers. FILES must be 
declared before any variables are defined. 

The OPEN command tells BASIC 
we wish to access FILE 1. In addition, 
the "R" denotes that the file is to be 
opened for RANDOM access. The "1" 
in the OPEN command tells BASIC we 
wish to use file buffer 1. HDE BASIC 
allows up to 32 files to be open at the 
same time. While a file buffer is OPEN, 
it will access the file named in the 
OPEN statement. However, if the file 
is CLOSEd, it may be reopened and used 
to access another named file, as in: 



50 CLOSE 1 
60 OPEN "FT 



1, "FILE 2' 



Since we declared three files, all 
three may be open at the same time. 

The statements: 

100 OPEN "FT, 1, "FILE 1" 
110 OPEN "FT, 2, "FILE 2" 
120 OPEN "R", 3, "FILE 3" 

will open all three files and allow ac- 
cess to any one or all three of them. 
Several files may be CLOSEd simultane- 
ously by the command CLOSE 1, 2, 3. 

I mentioned that random files 
should be reserved. The reserve or RSV 
command also provides for initializing 
an entire file to a pre-defined value. For 

example the statement: 

RSV1 T 50,CHR$(32) 

will reserve file number one for fifty 
records and also write a space, 
CHR$(32), in every byte in the file. 
Any one- byte character may be speci- 
fied as the fill character. 



Figure 1: Random Access Disk Files 




After a random file has been opened, 
the next step is to read and write infor- 
mation from and to it. I stated that 
HDE BASIC assigns a fixed record 
length of 128 bytes to each record in the 
file. This does not mean that every 
piece of data will use 128 bytes on the 
disk. A random file record is designed 
to be fielded, or broken down into one 
or more smaller fields. A field may con- 
sist of as little as one byte, or as many 
as 128 bytes of information. Fields may 
overlap, meaning that FIELD A$ may 
consist of all or part of FIELD B$, 
FIELD C$, FIELD D$, etc. 

Referring to figure 2, note fields A$, 
B$, and C$. Field A$ has a length of 10 
bytes, B$ a length of 20 bytes, and C$ a 
length of five bytes. The FIELD com- 
mand is used to define the particular 
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Figure 2; On© Random Access Record 



A$ 



10 



fields and their lengths. Figure 2's 
fields were created by the statement: 

FIELD 1, 10 AS A$, 20 AS B$, 5 AS C$ 

where the 'V following the field com- 
mand defines which file buffer we wish 
to field. 

If we execute a second FIELD state- 
ment such as: 

FIELD 1, 16 AS D$ 

we end up with the record depicted in 
figure 3. Note that the field D$ con- 
tains all of field A$ and part of field B$. 
However, the previously defined fields, 
A$, B$, and C$, remain as originally 
defined. Hence, the fields overlap. 

Any string variable may be used in 
the FIELD statement. This includes 
string array variables as in A$(X). 
Hence, every byte of a record may be 
fielded as an array element. The code 
might look like: 

100 DIM A$ (128) 

110 FORX=1 TO 128 

120 FIELD 1, X- AS D$, 1 AS A$(X) 

130 NEXT 



where the string variable D$ is used as 
a filler. 

Some explanation of the operation 
of the FIELD statement is in order here. 
BASIC knows where variables are 
located by means of a variable pointer 
or table. The FIELD statement simply 
fills the proper address and variable 
length into this table. When the state- 
ment 'FIELD 1' is encountered, BASIC 
puts the address of the beginning of 
FILE BUFFER 1 into a temporary loca- 
tion. Each time the 'AS' statement is 
encountered, the address in this tem- 
porary location is stored into the proper 
variable pointer and then the tem- 
porary location is incremented by the 
value preceding the 'AS' statement. 



B$ 



C$ 



30 35 



128 



Hence, if the address of FILE BUFFER 1 
is $DE00, the statement: 

FIELD 1,3ASA$ 

will perform the following operations: 

1. Store $DE00 into 'TEMP' 

2. Store contents of 'TEMP' into 
'pointer to variable A$' 

3. Store length of '3' into 'length of 
variable A$' 

4. Add '3' to contents of 'TEMP' 

After the operation is complete, 
'TEMP' will contain $DE03. 

From our FOR-NEXT loop example, 
you can see that the purpose of the 
filler variable D$ is merely to 'PUSH' 
the contents of 'TEMP', to the next 
location in the file buffer with each 
iteration of the loop. Note that in the 
first pass through the loop, the length 
of D$ is zero. Hence, the location of 
A$(l) will be the beginning of the file 
buffer. With each additional pass, the 
length of the filler, D$, is increased by 
one. Therefore, on the 128th pass 
through the loop, the first 127 bytes 
will be fielded as D$, while the last 
byte will be fielded as A$(128) with a 
length of one. BASIC will return an er- 
ror if you try to field past the end of the 
file buffer. 

String data with a random file is ac- 
cessed differently than strings created 
by other means (F$ = "TEST 
STRING", etc.). To put data into a file 
string, HDE has provided two com- 
mands, LSET and RSET. The syntax for 
either command is: 

LSET A$ = "TEST STRING" or 
RSETAS = 'TEST STRING" 

These commands cause the data 
specified on the right hand side of the 
" = " sign to be stored into the field 
specified by the variable following the 



command. In addition, they cause the 
unused portion of the field to be filled 
with spaces! 

The difference between LSET and 
RSET is that LSET stores the data 
beginning on the left side of the field 
and pads to the right, while RSET 
stores the data on the right side of the 
field and pads to the left. 



LSET 
RSET 



TEST STRING WJ* 
)Sim TEST STRING 



If the length of the data is greater 
than the field size, the data is truncated 
on the right. The data is always trun- 
cated on the right, whether the com- 
mand is LSET or RSET. 



TESTSTR1 



LSET or RSET 
TRUNCATION 



To read data from the file buffer, use 
the normal BASIC string functions: 

PRINT A$(1) 
F$ = A$(128) 
D = VAL(B$) 
etc. 

Note: Never reference a fielded 
variable unless you are working with 
the file! For example, the statement: 

A$(1) = F$ 

will destroy the relationship between 
A$(l) and the file buffer. The statement: 

LSET A$(1) = F$ 

will not. 

So far we have only manipulated file 
data in memory. We have not caused 
any data to be written to or read from 
the disk. Two commands, PUT and 
GET, are used to write a record to the 
disk or read a record from it. The 
statement: 

GET 1 , 5 
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will cause record number 5 (128 bytes) 
of the file to be read into file buffer one. 

The statement: 

PUT1, 5 

will cause file buffer one (128 bytes) to 
be written to record number 5 in the 
file. Unlike sequential files, the ran- 
dom file buffer is not automatically 
written to the disk when the file is 
CLOSEd. You are responsible for 
PUTing the record to the file. 

HDE has provided two very useful 
record pointers, LRN and NRN. These 
two functions first return the Last 
Record Number and then the Next 
Record Number of the specified file. 

LRN refers to the highest record 
number accessed in the file. For exam- 
ple, if a file has been reserved for 100 
records, but only the first 50 have been 
accessed, the LRN of the file will be 50. 

NRN equates to a value that is one 
higher than the record currently in the 
file buffer. Consider the previous ex- 
ample. If we access record number 5 via 
the GET 1, 5 statement, (NRN1) will 
return a value of six, while (LRN1) will 
still equal 50. 



In the following program, we will 
OPEN a new file, FIELD it, access some 
records, and retrieve the values of NRN 
and LRN. 

10 FILES 1 

20 OPEN "R", 1, "NWFIL" 

30 X = (NRN1) : Y = (LRN1) 

REMX=1, Y = 
40 RSV1, 100 
50 X = (NRN1) : Y = (LRN1) 

REMX=1, Y = 
60 FIELD 1 , 64 AS A$, 64 AS B$ 
70 GET 1, 25 
80 X = (NRN1): Y = (LRN1) 

REMX = 26, Y = 25 
90 GET 1, 10 
100 X = (NRN1) : Y = (LRN1) 

REMX=11 I Y = 25 
110 CLOSE 1 

120 OPEN "R", 1, "NWFIL" 
130 X = (NRN1): Y = (LRN1) 
REMX= 1,Y = 25 

Notice that when the file was CLOSEd 
and then reOPENed, LRN was pre- 
served, while NRN was reset to one. 

The value of LRN may be reset to 
zero via the RESTORE* (note the pound 
sign) command. Referencing the pre- 
vious program, if we add line 140 to say: 

140 RESTORED 



the value of LRN will equal zero and 
the value of NRN will equal one. 

NRN and LRN may be used to track 
the size of a file. This eliminates the 
need for additional variables. To se- 
quentially read ten records from a ran- 
dom file, NRN may be used as the 
record number variable. 

200 FORX=1 TO 10 
210 GET 1, (NRN1) 
220 C$(X) = A$ : D$(X)=B$ 
230 NEXT 

The purpose of the array variables 
C$|X) and D$(X) is to move the data out 
of the file buffer before the next record is 
read. If this is not done, the next record 
will overwrite the previous one. 

If the intent of reading the file is 
merely to PRINT the contents of the 
file, we can substitute: 

220 PRINT A$ : PRINT B$ 

for line 220 in the example. This will 
print each record and then overwrite 
the data with the next record. Hence, 
we can read an entire random access 
file, print it, and only use 128 bytes of 
variable space. No problem with unex- 
pected garbage collections here! 
JMCftO 
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JOYPORT 

Where Apple Meets Atari For A Good Time 



The Sirius Joyport is the most significant input 
device for the Apple computer since the key- 
board. Features include: 

m Easily accessible sockets for 4 Apple-compati- 
ble game paddles or 2 Apple-compatible 
joysticks. 

•2 sockets for Atari-type joysticks, the ideal game 
controller for many games. 

• A switch that selects between Apple game pad- 
dles or joysticks and Atari-type joysticks with no 
re-wiring required. 

*Completely compatible with BASIC, Pascal and 
machine language programs and games. 

* Atari joysticks require a special software driver. 



'Just a few of the games presently compatible 
include: All of the new Sirius products, "Destiny" 
from Continental Software, "Mouskattack"from 
Online, "Dogfight" from Micro Lab and ''Horizon 
5" from Gebelli Inc. 

'Includes a complete user's manual and a FREE 
copy of Computer Foosbalt, a hot new game for 
1 to 4 players. 

Sirius and Joyport are trademarks of Sinus Software, inc. 
Apple is a trademark of Apple Computer Inc. Atari is a trade- 
mark of Atari Inc. Sirius is not affiliated with Atari Inc. 



Sirius Software, Inc. 10364 Rockingham Drive 
Sacramento, CA 95827 (916)366-1195 
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A Sequential File Handler 
for a Disk-Based OSI 



by Mark Johnson and Chris Johnson 



An easily implemented 
sequential file handler for the 
C1P, written in BASIC, that may 
be adapted to the OSI C2 and C3 
under OS65D3.2. Structured 
programming is used to provide 
a control program that calls 
subroutines for speed and 
efficiency. 

These routines require: 

OSI C1P 

DOS OS65D3.2 

They may be modified for C2 

and C3 models. 



The most significant criteria distin- 
guishing professional machines from 
toys is the ability to handle files. OSI 
offers OS65U operating system for its 
professional machines, but the oper- 
ating system is not available for the 
C1P. OS65D, the operating system for 
the C1P, supposedly has file handling 
capabilities, but is severely limited in 
several ways. The search routine em- 
ployed by OS65D to look for the begin- 
ning of a new record is very inefficient 
and slow. In OS65D, files are placed in 
fixed-length records of 128 bytes. Even 
a record of only one byte takes up 128 
bytes on the disk. This system is very 
inefficient for short records and also 
severely limits the use of long records. 

OS65D doesn't keep track of the 
number of records used in a file. A pro- 
gram counter must be implemented to 
count records from the beginning of the 
file until an End-Of-File marker is read. 
Large amounts of time are consumed 
every time the counter program is used. 
Also the OS65U on the C1P consumes 
22K of RAM and costs $200.00. 
Machine-language subroutines are dif- 
ficult to access from BASIC, and are not 
easily modified. 

The requirements for a good file 
handler established the following 
criteria: 



1 . The file handler must be written en- 
tirely in BASIC. 

2. It must be fast in operation. 

3. Variable length records must be 
allowed. 

4. It must be easy to use. 

5. The SAVE and LOAD functions 
should be written as subroutines so 
that they may be easily accessed 
from the calling program. 

The program evolved into a General 
Initialization Routine (listing 2), a 
SAVE and LOAD Initialization Routine 
(listing 3), a SAVE Routine (listing 4), 
and a LOAD Routine (listing 5) . Listing 
1 is a sample control program to show 
how a typical calling program would 
operate, and is the basis of a simple text 
editor. Listing 6 is a sample run of the 
program. 



General Initialization Routine 
(Listing 2) 

The REM statements, lines 60000 
through 60090, make the program self- 
explanatory and may be removed to 
conserve memory. Variable PK is set to 
2K less than your memory size to allow 
2K workspace at the top of memory. 
The POKE statements on lines 60110 
and 60120 set BASIC'S top of memory 
to the new memory size. The variable 
REC is used as a record counter and is 
initialized by line 60130. Note that the 
General Initialization Routine is a sub- 
routine called by the control program 
each time a new track is to be initialized. 

SAVE and LOAD Initialization 
Routines (Listing 3) 

The SAVE initialization is contained 
in lines 61000 through 61040 and is 
called once by the control program 
when a SAVE is made. It is used to 
write header information that the track 
has been used by the program. Line 



61020 initializes the REC counter, and 
line 61040 advances the counter to the 
correct count to start adding records to 
the track. 

The LOAD initialization is contained 
in lines 63000 through 63020 and is 
called once by the control program 
when a LOAD is made. Line 63020 sets 
a data pointer to the header on the track. 

SAVE Routine (Listing 4) 

Lines 62000 to 62250 comprise the 
SAVE routine. It is a subroutine that is 
called by the control program each time 
a line of data (up to 254 bytes] is to be 
saved on disk. Line 62050 increments 
the record counter, RC. Lines 62060 
through 62205 detect a full track condi- 
tion and allow data to be written on the 
next succeeding track, if desired. If 
"NO" is selected as an option to 
writing on the next track, then all data 
are killed. Lines 62210 through 62250 
save the data into the track buffer, 
write a "0" as the last byte as an End- 
Of-Record flag, and reset the REC loca- 
tion pointer to the proper record number. 

Lines 63500 through 63570 com- 
prise the LOAD subroutine. It is called 
by the control program each time a 
record is to be loaded from the track 
buffer into string RC$. Lines 63500 
through 63530 increment the record 
counter, RC, and check to see if the 
value of RC exceeds the number of 
records on the track. If so, RC$ is set to 
a null string and return is made to the 
control program. If the character is not 
an End- Of- Record symbol, return is 
then made to the control program with 
RC$ holding a line of data. 

Control Program (Listing 1) 

The sample control program shown 
in lines 10 through 440 is included to 
show the function of the previously 
described subroutines. It may be 
modified as desired. The subroutines 
are universal for almost any file- 
manipulation technique. The control 
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Listing t: Control Program 

IS GOSUB66000: PRINT M MENU: " : GOSUB130: RC=© 

26 PRINT" S> SfiUE DATA ONTO fl TRACK, " 

39 PRINT" L> LORD DflTfl FROM A TRACK, " 

4© PRINT" Q> QUIT. " 

56 P0KE2797, 58: PGKE9682, 161 : PGKE2838, 0: P0KE8722, 

PGKE2976, 13 
68 P0KE2972.. 13 

76 INPUT " CHO I CE " ; C$ : C*-LEFT* < C* , 1 > 
88 IFC*="S"THEN190 
90 IFC$="L"THEN290 

1 06 I FC*= " Q " THENF0KE2972 , 44 : F0KE2976 , 53 : END 
116 PRINT" INVflL ID OPTION." 
120 GOTO70 
136 Pl^INT<PK^-4096) 
1 40 P2= I NT < < PK- < P 1 +4696 ) > --256 ) 
1 56 P3= I NT < < PK- < < P 1 *4096 > + < P2+256 > > ) ■•-' 1 b > 
1 66 P4=PK- < < P 1 +4896 :> + < P2+256 > + < P3+ 1 6 > > 

1 70 P*=CHR* < 48+P 1 > 5 I FP2 >9THEMP*=P*+CHR* 1 55+P2 > : 

GOTO 172 

171 P$~P$+CHR$<48+F2> 

1 72 I FP3 >9THENP*=P*+CHR* < 55+P3 > : GOTO 1 74 

173 P*=P*+CHR*C4S+P3> 

174 IFP4>9THENP*=P*+CHR*<;55+P4:> : GOTO 176 

1 75 P*=P*+CHR* < 48+P4 1> 

176 RETURN 

130 REM SfiUE & LORD CONTROL ROUTINES 
1 90 GOSUB260 : G0SUB6 1 898 

209 PRIHT"ENTER DflTfl: " 

210 INPUTRC* 

220 IFRC*=""THEN25Q 

230 GOSUB62S0O 

248 G0T021Q 

258 DISK! H SR M +TR$+'M = "+P*+",-'3":GOTO10 

260 INPUT"TRRCK TO BE USED";TR$ 

270 I FURL < TR$ ? < 1 60RURL < TR* > >39THEN260 

230 RETURN 

296 GOSUB260: GO5UB6380O 

360 DISK!"Cfl "+p$+" = "+TR*+".. 1" 

310 IFPEEfcXPK>=16tTHEN34S 

320 PRINT"**TRflCK NOT FORMATTED CNOT USED::'. 1 

330 GOTO 10 

340 I FPEEK < PK+ 1 > >8THEN378 

358 PRINT"**TRRCK EMPTY. " 

360 GOTO 18 

376 PK=PK+2 

330 PRI NT M TRACK: »TR* 

396 F0RX=1T0PEEK<REC> 

486 G0SUB63588 

4 1 PR I NTRC ; TAB < 5 > Z RC* 

429 NEXTX 

430 PRINT"**END OF DflTfl." 
440 GOTO 10 



Listing 2: General Initialization Routine 

60008 REM SET UP MEMORY SIZE 

68818 REM AND MAR I ABLE 'PK' . 

6O028 REM IF YOU HAUE R 

60830 REM DIFFERENT MEMORY 

60848 REM SIZE THAN 32K, 

68058 REM CHANGE THE NUMBER 'PK" 

60860 REM TO YOUR MEMORY 

6807O REM <EX:l6K> J i THEN 

68638 REM SUBTRACT 2K 

60898 REM <EX:14K>« 

60 1 Q8 PK=39* 1 824 

€M1 18 POKE 133, IHT<PK- 256 > 

601 28 POKE 1 32 , PK- C I NT < PK-256 > *25t 

60138 REOFK+2 

68140 RETURN 



Listing 3: SAVE and LOAD Initialization Routines 

61688 REM SAUE INITIALIZATION 

61018 REM SUBROUTINE 

61028 POKEPK+1, 161 

61630 POKEPK+2,0 

6 1 048 PK=PK+3 : RETURN 

63080 REM LOAD INITIALIZATION 

63818 REM SUBROUTINE 

63028 PK=PK+l: RETURN 
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OS 1 Disk Users 

Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your usable floppy disk 
storage capacity — for a fraction of the cost of additional 
disk drives. Modular Systems' DiskDoubler™ is a double- 
density adapter that doubles the storage capacity of 
each disk track. The DiskDoubler plugs directly into an 
OSI disk interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases total disk space under OS- 
65U to 550K; under OS-65D to 473K for 8-inch floppies, 
to 163K for mini-floppies. With the DiskDoubler, each 
drive does the work of two. You can have more and ; 
larger programs, related files, and disk utilities on 
the same disk — for easier operation without constant 
disk changes. 

Your OSI system is an investment in computing power. 
Get the full value from the disk hardware and software 
that you already own. Just write to us, and we'll send you 
the full story on the DiskDoubler, along with the rest 
of our growing family of products for OSI disk systems. 

rM DiskDoubler is a trademark of Modular Systems. 




Modular Systems 
1 


Post Of f ice Box 16 C 
Oradell, NJ 07649.0016 
Telephone 201 262.0093 









Listing 4: SAVE Routine 



620Q0 
62010 
62020 
62030 
62040 
62050 
62060 
6207O 

62030 

62090 
621 £10 
62110 
62128 
62130 
62140 
62150 
62169 
62170 
62180 
62190 
62290 

62205 

62210 
62220 
6223© 
62240 
62250 



REM SfiUE ONE LINE 

REM OF STRING ONTO 

REM TRACK BUFFER, 

REM UPDRTE RECORD 

REM COUNTER. 

RC=RC+1 

IFRC<256THEN6221S 

PRINT B **VOU HAUE OUER 255 

LINES ON THIS TRACK. " 
PRINT" DO VOL! WISH TO SRUE 

THIS TRACK AND" 
PRINT" CONTINUE ON THE NEXT ONE" j: 
P0KE2797.-63 
INPUT A*: P0KE2797, 58 
I FLEFT* C A* , 1 > = " V " THEM62 1 50 
GOTO 10 

REM READV NEXT TRACK FOR INFORMATION 
DISK ! "Sfi "+TR$+" , 1 = "+Pt + n ,-S" 
TR=UAL < TR* > + 1 : I FTR >39THEN£2209 
TR*=sRIGHT#<STR*tTR> , 2) 
GOSUB60000: G0SUB6 180Q 
G0T062210 
PRINT M **VDU' RE AT THE END OF 

THE DISK, THE LINE" 
PRINT" VOL! HAUE JUST TYPED 

IS LOST, 'SORRY! ! " : END 
F0RX=1T0LENCRC*> 
FGKEX+PK- 1 , ASC < M I D* < RC* , X , 1 > > 
NEXTX:PK^FK+X 
POKEPK-1 * 0: PGKEREC, RC 
RETURN 
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program is all that needs to be changed 
to develop a field-oriented data base 
management system or a full text 
editor. These control programs will be 
presented in following issues. 



Lines 10 through 40 call the General 
Initialization Routine, translate the 
decimal memory size to hexadecimal 
for use by OS65D subroutines, in- 
itialize record counter RC, and list a 
menu of choices. Lines 50 through 60 
remove some limitations on BASIC 
that prevent use of commas and colons 
in text and allow a carriage return as a 
valid input. (See the listing of POKE 
values for a detailed description.) Lines 
70 through 120 direct program control 
to the proper subroutine, depending on 
the menu choice. 



Lines 180 through 280 form a con- 
trol program for the SAVE function. It 
asks for the desired track number to 
start data storage. Note that tracks 1 
through 15 are blocked because this is 
where OS65D and the DOS reside. 
Tracks greater than 39 are also blocked 
because the C1P drive is a 40-track 
drive. These restrictions may be altered 
by changing the parameters in line 270. 
The SAVE initialization and SAVE sub- 
routines are called by the control block. 



Lines 290 through 440 form the 
LOAD control program. It asks for the 
desired track number to start data 
retrieval from disk. The track number 
restrictions indicated in the SAVE con- 
trol program also apply. These restric- 
tions are automatically altered if the 
SAVE control program parameters in 
line 270 are changed. The LOAD con- 
trol program loads the desired track in- 
to the track formatting. The track is 
next checked to see whether or not it 
contains data. Each record is printed, one 
at a time, along with its record number. 



Sample Run (Listing 6) 

The MENU is printed and choices 
are given to: 



S) SAVE data onto a track, 
L) LOAD data from a track, 
Q) QUIT (Exit to BASIC). 

If a SAVE or LOAD is selected, the user 
is asked for the desired track number. 
The sample run shows selection of 
SAVE, entry of data, selection of 
LOAD, retrieval of the data, and exit to 
BASIC. 



POKE Locations and Their Purposes 

POKE 2797, 58 changes the question 
mark used on INPUT to a colon. 



POKE 9682, 161 changes the cursor 
symbol to a block. 



POKE 2888, and POKE 8722, must 
be made in conjunction to allow 
null inputs (carriage return only) 
without automatic exit into BASIC. 



POKE 2976, 13 allows entry of a comma 
as part of an INPUT. 



POKE 2972, 13 allows entry of a colon 
as part of an INPUT. 



POKE 133,INT(PK/256) and POKE 132, 
PK-(INT(PK/256)*256) are the 
high and low bytes defining the top 
of memory. 

Variables 



RC 



C$ 



Record counter — used to 
keep track of present record 
number. 



Temporary input storage. 



P1-P4 Temporary storage for deci- 
mal/hexadecimal conversion. 



P$ Hexadecimal value of begin- 

ning of track storage area. 



RC$ 


Temporary storage area for 
data in a record. 


TR$ 


Selected track number. 


PK 


Pointer to present location 
in track storage area. 


X 


Iteration counter. 


REC 


Storage location for total 
number of records in use. 


A$ 


Temporary input storage. 


TR 


Temporary track number 



storage. 



Temporary storage present 
character. 



Listing 5: LOAD Routine 

63509 REM LORD ONE LINE INTO 
63516 REM STRING 'RC*-'. 
63520 RC-RC+ I : Rt*« " " 
63530 IFROPEEKCRECJ 

THENRC*="": RETURN 
63540 F -PEEK WO 
6355S I FP=0THENFK=FK+ 1 : RETURN 
63560 RC*=RC*+CHR* < P > 
63570 PK=PK+1 : GOTO63540 



Listing 6: Sample Run 



MENU: 

l> SflUE DRTfl ONTO 



TRACK, 
TRACK, 



L> LORD DATR FROM 
Q> QUIT. 
CHOICE: S 

TRRCK TO BE USED: 32 
ENTER DATR: 
: HOW IS THE TIME FOR 
: ALL GOOD MEN TO COME 
: TO THE RID OF THEIR 
: COUNTRY. 

MENU: 

S> SAVE DATA ONTO R TRRCK, 

L> LORD DRTfl FROM A TRACK, 

Q> QUIT. 

CHOICE: L 

TRRCK TO BE USED: 32 

TRACK: 32 

1 HOW IS THE TIME FOR 

2 FILL GOOD MEN TO COME 

3 TO THE RID OF THEIR 

4 COUHTRV. 
**END OF DRTfl. 
MENU: 

S> SRUE DATA ONTO fl TRRCK, 
L> LORD DRTR FROM A TRACK, 
o:> QUIT. 
CHOICE: Q 

OK 






Chris Johnson is employed by 
Westinghouse Electric Corporation as an 
applications engineer for a line of 
microprocessor- based programmable 
controllers. He learned FORTRAN in I960, 
but currently uses BASIC and 6502 
machine language. He has been involved 
in solid state design since 1956. 

Mark Johnson is sixteen years old and 
has been writing BASIC programs for the 
past five years. He is conversant in 6502 
assembler, COBOL, FORTRAN, ALGOL, 
and Pascal. 

Mark and Chris work as a team, with 
Mark specializing in software and Chris 
specializing in hardware. They currently 
have a homebrew, an extensively modified 
OSI C1P, and an Atari. They are presently 
investigating high-resolution color 
graphics and a new homebrew — based on 
either the 6809 or the 68000. They may be 
contacted at 7204 S. Yarrow St., Littleton, 
CO 80123. 

JMCOO 



28 



MICRO - The 6502/6809 Journal 



No. 49 -June 1982 






Industry standard products at super saver discount prices 



PARALLEL PRINTERS 

C-ITOH 8510 PRINTER Virtually identical to 
the NEC 8023. Same electro-mechanical 
internals. The only difference is the name 
and the price. Specifications: • 1 00 CPS 
dot matrix printer • 80 column print- 136 
characters per line • Tractor/friction feed 
• 7 different print fonts included • 2K printer 
buffer • Proportional spacing • Bit image 
graphics and graphic symbols. 

NEC & C-ITOH List: $800 

Special Price with any other purchase $595 

EPSON 100 PRINTER $749 




Z-80 CARDS FOR YOUR APPLE 

MICROSOFT S0FTCARD. With CP/M® & MBASIC. 

(List: $399) .... $289 

«*£*'• ADVANCED LOGIC SYSTEM Z-CARD. With C/PM®. 

Has everything the Softcard has except MBASIC. Works with 
Microsoft's disks too. 

(List: $269) .... $209 



n£ *T'. U-Z-80 PROCESSOR BOARD (from Europe) 

Software compatible with Softcard and 

ALS Software (List: $199) .... $149 

With CP/M®, add: (List: $75) $49 



tffcVfl ALS SYNERGIZER. CP/M® operating package with an 
80 column video board, CP/M® interface, and 1 6K memory 
expansion for Apple II. Permits use of the full range of CP/M® 
software on Apple II and Apple III. 

(List: $749) .... $595 




80 COLUMN VIDEO DISPLAYS 
^pm m FOR APPLE II 

SMARTERM. 

(Not to be confused with SUPRTERM) 

Software switching from 80 to 40 and 40 to 80 characters. 9 new 
characters not found on the Apple keyboard. Fully compatible with 
CP/M® and Apple PASCAL®. With lowest power consumption of only 
2.5 watts. 

(List: $360) .... $279 

SMARTERM EXPANDED CHARACTER SET. Add to above: $40 
7"x 1 1 " matrix with true decenders. 

VIDEX-80 $279 

WIZARD $269 

MONITORS FOR YOUR APPLE 

AMDEX300G $229 

SOPEHSPEC1AI-S'. 

12" GREEN MONITOR $1 39 

12" BLACK & WHITE MONITOR $125 



EXPAND YOUR APPLE II MEMORY 

16K MEMORY EXPANSION MODULE. The preferred 16K RAM 
Expansion Module from PROMETHEUS. Fully compatible with CP/M® 
and Apple Pascal®. With full 1 -year parts and labor warranty. 

(List: $169) $99 

MEMORY MANAGEMENT SYSTEM. Provides more free memory in 
BASIC by moving DOS into 16K card. 

(List: $49) $35 

16K RAM ADD-ON KITS. Eight 16Kfull specification RAMS. 

Reduced to $19 

SATURN SYSTEMS 32K RAM CARD $199 





All equipment shipped factory fresh. Manufacturers' warranties included. 
Please add $3.00 per product for shipping and handling. California: add 
6% tax; BART Counties: 6 1 / 2 %. 



VERSAcard 
from PROMETHEUS 

Four cards on one! With true simultaneous 
operation. Includes: (1) Serial Input/Output Interface, 
(2) Parallel Output Interface, (3) Precision Clock/Calendar, and (4) BSR 
Control. All on one card. Fully compatible with CP/M® and 
Apple Pascal®. 

(List: $249) ....$195 



JOYSTICK 

Takes the place of two Apple Paddle Controllers. 
* ' | From BMP Enterprises. Heavy duty industrial 

construction and cable. Non-self centering. With 
polarity switches for consistent motion control. 

(List: $59) $39 

MODEMS FOR YOUR APPLE II 

HAYS Smartmodem $229 

NOVATION Apple Cat . . $349 

CENTRONICS COMPATIBLE PARALLEL INTERFACE 

Look out Grappler! From PROMETHEUS. For use with 
j4fiVT' Epson, NEC, C-ITOH, and other printers. Fully compatible 
with CP/M® and Apple Pascal®. 

Only $69 

With Screen Dump Graphics for EPSON printer, add ... $25 



Phone for Quick 

Shipment! 
C41S) 490-3420 

"The mail order specialists" 
342 Quartz Circle, Livermore, CA 94550 
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Skyles Electric Works 



BASIC Programmer's Command-O® 

For PET/CBM® Owners Who Want More Fun 
And Fewer Errors with Their Programs 

Here are nineteen commands you'll need, on a single chip you can install in two 
minutes without tools, on any PET or CBM system. 4KB of ROM firmware on 
each chip with a collection of machine language programs available from the time 
you turn on your PET to the time you shut it off. 

For PET 4016, 4032, CBM 8032, SuperPET or BASIC 4.0 upgrade 

BASIC Programmers Command-O® 

AUTO DUMP DELETE FIND (improved) HELP KILL OFF 

TRACE (improved) RENUMBER (improved) INITIALIZE MERGE MOVE 

EXECUTE SCROLL OUT SET SEND PRINT USING BEEP 




100 GOSUB 180 

105 PRINT USING CS, A, BS 



131 INPUT 'DAY", E$ 
160 IFB< -C THEN 105 
180 FOR X = IT09 
163 PRINT Y(X):NEXT 
184 RETURN 
200 I X/19 



READY 

LIST 
100 GOSUB 150 
110 PRINT USING CS, A, BS 
120 INPUT "TIME", D$ 
130 INPUT DAY", E$ 
140 IFB< >C THEN 110 
150 FOR X-IT09 
160 PRINT Y(X): NEXT 
170 RETURN 
200 1 = X/19 

READY 



INSTALLATION: 



MERGE D1 "BUY NOW*" 
SEARCHING FOR BUY NOW* 



READY 
RENUMBER 100, 10 

READY 

FINDBS 

110 PRINT USING A$, |^,[^ + C$+D$ 

280 33= "NOW IS THE TIME" 



580 BA = BA 1 

590RA=123'5X/92+BA*10 

600 IF BA = 143 THEN 580 

610 RETURN 

620 C$ = " PROFIT $#,###.## DAILY" 

630 PRINT USING C$, PI 

640 D$ = "LOSS $#, ###.## DAILY" 

650 PRINT USING D$, LI 



PROFIT $1, 238.61 DAILY 
LOSS $ 0.00 DAILY 



| NOTICE # 

COMMAND-0 IMMEDIATELY AVAILABLE 

FOR 

ALL MODELS PET/CBMs 

PLEASE SPECIFY !! 

} NOTICE | 



Installs into socket UD12 ($9000) in "fat forty's", 8032's or SuperPET's. Installs into socket UD3 
($9000) in BASIC 4.0 upgrades. 

PRICES: 

For PET 4016, 4032, BASIC 4.0 upgrade COMMAND-0 CO-40N $75.00 

For CBM 8032, SuperPET (SP9000) COMMAND-0 CO-80N $75.00 

Shipping and handling $2.50 USA/ Canada, $10.00 Europe/ Asia 

California residents please add 6% or 6-1/2% sales tax as required 
order your Disk-O-Pro, today 



AVAILABILITY: 



Immediately from your LOCAL DEALER 
or 



VISA, MASTERCHARGE ORDERS CALL (800) 227-9998 (except California residents) 
CALIFORNIA ORDERS PLEASE CALL (415) 965-1735 



Skylcs Electric Works 



23 IE South Whisman Road 
Mountain View, CA 94041 
(415) 965-1735 
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I APPLICATIONS I 



Face Synthesizer for PET 



by David Heise 



This program creates an 
animated face on a PET screen 
that changes expression on 
keyboard command. Animation 
is controlled from BASIC 
programs, so the PET face can 
be used in any application — 
education, marketing, games, 
etc. 



Face Synthesizer 

requires: 

PET 

8K or larger 

3.0 or 4.0 Operating System 

Facial expressions reflect emotions. 
This well-known fact has been a topic 
of study for social psychologists, who 
analyze expressions by observing the 
shape and position of eyes, mouth, eye- 
brows, and other facial features. The 
psychologists' precise technical des- 
criptions of these features provided me 
with the data I needed to represent 
facial expressions on a computer. Now 
your PET can express emotions too. 

This program generates a face that 
smiles, winks, and pouts; shows fear, 
disgust, or anger; or widens its eyes in 
surprise. You operate the face from the 
keyboard. The facial expressions also 
can be called from BASIC programs for 
practical applications. A salesroom 
display program could use the PET face 
to call attention to a product with mov- 
ing eyes, winks, and smiles. Education 
programs could use the face to provide 
rewards or reproofs for right or wrong 



What Are Facial Expressions? 

Emotional messages are con- 
structed on the face by the shape of the 
mouth, eyes, and eyebrows (and some- 
times the nose, cheeks, and forehead as 
well). Each of these features has a 
limited number of major shapes pro- 
duced by the action of certain facial 
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muscles. Whether a group of muscles is 
tugging gently or straining hard may 
suggest the intensity of feeling, but the 
real information is in the fact that cer- 
tain muscles are operative, producing 
the characteristic shape for that muscle 
group. 

The brows have four major shapes 
other than a neutral relaxed position. 
They may be curved upward (as in sur- 
prise), flattened and raised (as in fear], 
flattened and lowered (as in sadness), or 
pulled down and inward (as in anger). 

The opened eyes have six major 
shapes: neutral, wide open (as in sur- 
prise), raised lower lids (as in disgust), 
raised and tensed lower lids (as in fear), 
squinting (as in anger), and upper lids 
drooping and sloped (as in sadness). 

Major shapes of the mouth, aside 
from neutral, are: dropped open (as in 
surprise), corners pulled horizontal (as 
in fear), lips pressed tight (as in anger), 
squared outthrust lips baring teeth (as 
in anger), upper lip pulled up (as in 
disgust), corners down (as in sadness), 
corners raised (as in happiness, with ex- 
tra stretching for smiles, grins, or 
laughs). 

The end of the nose may be normal 
or raised by pressure from the upper lip; 
the upper nose may be normal or crin- 
kled. Cheeks may be normal or raised 
during laughter. The forehead may be 
normal or wrinkled by pressures from 
the eyebrows. 

Variations in one feature combine 
with variations in another feature,* for 
example, any eyebrow formation can 
occur with any mouth shape. But not 
quite every combination of features is 
possible. For example, the mouth isn't 
disgusted alone; "disgusted" mouth 
occurs with nose raised. 

Expressions for the primary emo- 
tions are universal. Surprise combines 
arched eyebrows with wide open eyes 
and a dropped open mouth. Fear shows 
in raised and flattened eyebrows, raised 



and tensed lower eyelids, along with 
sides tretched lips. Disgust involves 
raised lower eyelids, and the upper lip 
curled up so to raise the nose; the upper 
nose may be crinkled. In anger the 
brows pull down and inward, the eyes 
squint, and the lips either are pressed 
tight or squared into a snarl. Happiness 
is revealed in upturned corners of the 
mouth; laughing also raises the cheeks 
which in turn may push the lower eye- 
lids up. 

Blends can be formed by combining 
signs of two emotions. For example, 
arched eyebrows and a smile indicate 
surprised happiness. Subtle feelings 
also may be communicated by rapid se- 
quences of expressions — an angry ex- 
pression interrupted by a flash of 
disgust. 



The Face Program 

The face synthesizer presented 
here consists of 2K of assembly- 
language code designed to run on 32K 
PET/CBM microcomputers with 
40-column screens. Instructions are 
given on relocating the code for 16K or 
8K machines. The synthesizer does not 
work with Commodore operating sys- 
tem 1.0, and it produces a long and nar- 
row face on 80-column screens. 

The facial image was created by 
tracing a photo of a woman's face in a 
magazine onto graph paper, and then 
matching features in each cell as closely 
as possible with Commodore graphics. 
The happy, grinning face that appears 
by default is the original. Feature varia- 
tions were created artistically, with 
guidance from photographs of facial ex- 
pressions. Gaze variations were con- 
structed so that the face can be made to 
look forward, left, right, or down. Left 
and right eyelids can be independently 
controlled for winks, blinks, and closed 
eyes. 

The program includes limited fea- 
ture variations. Each feature shape is 
represented in a single form, though 
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real faces can produce gradations. Some 
eye variations are too subtle for Com- 
modore graphics, so a single approx- 
imate shape has to serve multiple duty. 
Nose crinkling for disgust and raised 
cheeks for laughter are not included. 
No asymmetric moves for brows or 
mouth are included. 

Paul Ekman and Wallace Friesen's 
book, Unmasking the Face (Prentice- 
Hall, 1975), guided composition of 
the feature variations. This paperback 
is an essential manual for anyone 
using the face program in application 
programming. 

The Emotional Keyboard 

Running the programs listed here 
produces the PET face and an initial 
display of some of its expressive varia- 
tions. After the opening show, you can 
produce new expressions from the key- 
board. Each feature variation is linked 
to a single key. The brow is controlled 
by keys in the top row of the keyboard. 
Eyes and eyelids are controlled by keys 
in the next two rows, with left eye 
variations on the left and right eye 
variations on the right. The mouth is 
controlled by keys in the bottom row. 
The six basic emotion configurations 
are available from single keys — paren- 
theses, brackets, and inequalities. The 
number keys control compositions that 
are needed in programming. Chart 1 
indexes command characters and their 
effects. 

The demonstration program allows 
you to construct a string of commands 
that can produce an animated sequence 
of expressions. To begin a string, press 
the " + " key. When you have com- 
pleted the sequence and are ready to 
view it, press the " = " key. Use the 
delay command (shifted SPACE) be- 
tween different expressions so that the 
sequence runs slow enough for you to 
see. You may press the "*" key to see 
the last sequence again. If you press the 
" / " key, the commands producing the 
last sequence are printed on the screen 
and the program ends. Use this option 
to work out desired effects before enter- 
ing commands into your BASIC program. 

Faces in BASIC 

Listing 1 presents the demonstra- 
tion program that illustrates all of the 
points essential to using the Face rou- 
tine with BASIC. Commands are sent 
to the routine via a string variable 
named FACE$ (or FA$) (this must be 
defined in the program before calling 
the Face routine or you will get an er- 
ror). The FACES string may be con- 



Listing 1 

100 REM COMPOSE THE FACE, AND SUBSTITUTE A SMILE FOR THE DEFAULT GRIN. 

110 FACE$="01234? rt 

120 SYS 30729 :REM 143^5 FOR 16K; 6153 FOR 8K. 

130 REM GO THROUGH SEQUENCE OF BASIC EMOTIONS WITH PAUSES BETWEEN CHANGES. 

140 FEM »[ }" IS SHIFTED SPACE. 

'50 FA$=»[ ][ ][ ][ ][ ])[ ][ ][ ][ ][ ][ ][[ ][ ][ ][ ][ ][ ]]» 

160 FA$=FA$ + "[ ][ ][ ][ ][ ][ ]<[ ][ ][ ][ ][ ][ ]>[ ][ ][ ][ ][ ][ ]<" 

170 SYS 30729 :REM 14345 FOR 16K; 6153 FOR 8K. 

180 REM PRODUCE SLY LOOKS TO LEFT AND RIGHT, THEN A WINK. 

190 FA$="[ ][ ][ ][ It ][ ]Q[ ][ ][ ]P[ ][ ][ ]T[ ][ ][ ]A[ ]T" 

200 SYS 30729 :REM 14345 FOR 16K; 6153 FOR BE, 

210 REM CLEAR THE COMMAND STRING. 

220 FA$="" 

230 REM GET KEYBOARD COMMAND. 

240 GET A$:IF A$= nn THEN 240 

250 REM START A SEQUENCE? SET THE SERIAL FLAG AND CLEAR FA$. 

260 IF A$= n +" THEN A=-1 :G0T0 220 

270 REM DISPLAY THE SEQUENCE? CLEAR FLAG AND STORE STRING FIRST. 

280 IF A$= n =" THEN A=0:B$=FA$:G0TO 200 

290 REM CONSTRUCTING A SEQUENCE? ADD TO FA$ AND GET MORE. 

300 IF A THEN FA$=FA$+A$:GOTO 240 

310 REM DISPLAY LAST SEQUENCE? USE STORED STRING. 

320 IF A$="«" THEN FA$=B$;G0T0 200 

330 REM PRINT COMMANDS IN LAST SEQUENCE? CLEAR SCREEN, PRINT STRING, AND END. 

340 IF A$ = V" THEN PRINT "<s>"B$:END 

350 REM OTHERWISE DISPLAY COMMAND FROM KEYBOARD. 

360 FA$=A$ 

370 GOTO 200 



Listing 2 



REM: LOADER PROGRAM 



ROUTINE TO LOAD THE ASSEMBLED CODE, THEN THE MAIN PROGRAM. 
DELETE NEXT LINE TO LOAD FROM TAPE, INCLUDE IT TO LOAD FROM DISK. 



100 

110 : 

120 : REM; 

130 : REM; 

140 DV$= n , 

150 : REM: SET GRAPHICS MODE. 

160 POKE 59468,12 

170 : REM: STORE 4 CARRIAGE RETURNS IN INPUT BUFFER, 

180 POKE 158,4:POKE 623,13:POKE 624,13:POKE 625,13:POKE 626,13 

190 : REM: SET UP SCREEN TO INVOKE THE SUBROUTINE FILE — 'CODE 1 , 

200 : REM: "<s> n IS CLEAR SCREEN. "<Q>" IS CURSOR DOWN. 

210 IF DV$<>",8" THEN DV$="<Q> n 

220 PRINT n <sXQXQ>LOAD" CHR$(34) "CODE" CHR$( 34 )DV$: PRINT "<QXQXQXQ>SYS 30720" 

230 : REM: THEN LOAD PROGRAM 'MAIN' 

240 PRINT n <QXQ>L0AD" CHR$<34) "MAIN" CHR$(34)DV$ 

250 : REM: "<S>" IS CURSOR HOME. 

260 PRINT "<QXQXQXQ>RUN<S> n ;:END 



structed by direct quotes; by GET, IN- 
PUT, or READ statements; or by string 
manipulations. 

The first string sent to the routine 
should begin with "01234". These five 
commands display the face on the 
screen. Thereafter the FACE$ string 
consists only of commands for desired 
feature changes. 

Commands in the FACE$ string are 
implemented by SYS 30729 on a 32K 
PET, SYS 14345 on a 16K PET, or SYS 
6153 on an 8K PET. 

Listing 2 is a BASIC utility program 
that automatically loads the Face code 
from a file named CODE, protects the 
code from BASIC, and then loads 
another BASIC program named MAIN. 
Program MAIN would be listing 1 when 
you set up the demonstration pro- 
cedure; otherwise it is the application 
program you have written. On tape, the 
Loader program should be first, the 
CODE file second, and MAIN third. On 



disk, the order is immaterial, but the 
names CODE and MAIN are required. 
(The DOS wedge can be loaded after the 
face routines are loaded.) 



Assembly-Language Routine 

Listing 3 is the assembly-language 
routine. Listing 4 contains the data used 
to compose the face and its variations 
on the screen. 

You enter the code in listings 3 and 
4 with the PET/CBM monitor (SYS 
1024). To begin enter: 

.M 7800.787F 

Then overwrite the contents of the 
cells with the hexadecimal values at 
the left of listing 3, pressing RETURN 
after each line. Continue with: 

.M 7880,7900 

and so on. When you have finished 
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Commodore Programming 
Moves into the Fast Lane! 



Petspeed — The 
Optimizing Basic Compiler that 
runs Basic 40 times faster. 
Petspeed brings speed, compat- 
ibility and ease to your Basic 
programming. Now you can 
dramatically reduce long pro- 
cessing times, tedious disk 
handling, and long print runs. 

Compatible Petspeed compiles 
any Basic program and is available 
for any combination of 4000 and 
8000 series Commodore machines. 

Faster The key that sets Pet- 
speed apart from other compilers is 
optimization. Where most compilers 
merely translate from one language 
to another, Petspeed analyzes your 
source program to eliminate unnec- 
essary complexities, thus speeding 
processing time. Your program is 
reduced to much smaller components 
and reassembled into a far more effi- 
cient form. Compare these optimizing 
features: 

• 4-Pass compiler. 

• Automatically uses faster integer 
arithmetic when possible. 

• Automatically handles frequently 
occurring variables and arrays. 

• Subroutines no longer need be 
located at the beginning of your 
program. 

• Petspeed automatically calls all 
subroutines at maximum speed. 

• Petspeed runs twice as fast as 
other compilers. 

• Larger programs require far less 
memory when 
compiled. 



Easy to Use Petspeed is as 
easy to use as these screen displays 
illustrate. 




Directory BEFORE compilation. 



Security A security device is 
provided to run Petspeed, but no run- 
time key is necessary for compiled 
programs. You're free to build in 
your own protection. Petspeed code 
cannot be listed by others, so com- 
piled programs cannot be tampered 
with. Your programs belong entirely 
to you. 

Move your Commodore into the fast 
lane today with Petspeed. And save 
$25 too! Take this coupon to your 
dealer, or send to 





Simply type in your program name. 




SMALL SYSTEMS ENGINEERING 

222 B View St. 
Mountain View, California 94041 

(415)964-8201 

Dealets: Ask for our free demo disk. 
Price $325 



Directory AFTER compilation 

It isn't necessary to add compiler 
directives. Simply type in the pro- 
gram name. In less than 2 minutes, 
youll see your program run up to 40 
times faster. 





Offer Expires 8/31/82 



Please rush Petspeed today! My disk 
format is D 8050 □ 4040. 




My check for $300 (plus sales tax for CA 

res. is enclosed.) 
□ Please send more information D I'm a dealer. Send me your 
free demo disk. 



_State_ 



_Zip_ 



Mail to: Small Systems Engineering 
222 B. View St., Mountain View, GA 94041 



- 



- 



APPLICATIONS! 

with the data in listing 3, go on to 
listing 4. Print out lines of memory the 
same as they appear in listing 4 to 
simplify entry. 

When all code has been entered, 
save it on tape with: 

.S' ( CODE'\01,7800,7FF2 

or on a preinitialized disk in unit 
with: 

.S "0:CODE",08J800,7FF2 

If you are saving on tape, remember to 
save the Loader program (listing 2) on 
the tape before you begin to enter the 
code in listings 3 and 4. 

To relocate the code for a 16K 
machine, change all $7000 addresses to 
$3000 addresses. For example, you 
would begin entering code with: 

.M 3800.387F 

Some addresses within the program 
have to be changed. Relevant lines are 
flagged by <SIZE> in the comments 
column. Change the 7 in the address 
high byte to 3 wherever <SIZE> ap- 
pears. For example, A9 77 in line 440 
would become A9 37. In addition, the 
last byte of each entry in the INDEX 
must be changed (the INDEX begins at 
line 2080). For example, 79 in the 
SCALP entry would be changed to 39, 
7 A in the BROW entry becomes 3A, etc. 

Relocation for 8K is similar except 
that sevens are changed to ones. 

The address in line 1890 of listing 3 
is for operating system 3.0. Change 69 
C3 to 00 BF for operating system 4.0. 

The data in listing 4 remain the 
same for all machines. 



Program Notes 

Lines 70-100 in listing 3 are instruc- 
tions for the assembler program. 

Lines 140-210 indicate parts of the 
PET/CBM operating system that are 
used in the Face program. 

Lines 240-350 show the locations in 
screen memory where facial features 
begin. 

Lines 420-460 are a short routine for 
putting the Face code outside the 
bounds of BASIC. This routine is called 
by the Loader program in listing 2 im- 
mediately after loading the Face code. 



The Face program begins in line 
540. First the FACE$ command string 
has to be found (lines 540-590 plus the 
subroutine in lines 1630-2030). 

Commands in the FACE$ string are 
transferred to the stack in reverse order 
(lines 620-670), after a zero is pushed 
on the stack to signal the end of the 
commands (lines 600-610). 

Commands are retrieved from the 
stack by the routine in lines 700-740. If 
a zero is encountered, then all com- 
mands have been processed and control 
returns to BASIC. If the command 
value is negative (greater than 127), 
then the routine drops into a dummy 
loop that causes a delay. A shifted space 
has ASCII value 160 so it causes a 
delay. Otherwise control shifts to line 
850, and a search is initiated to find the 
command in the Index (lines 850-940). 
If the command is not found, it is ig- 
nored, and the program branches to get 
the next command from the stack. 

When a command to change a fea- 
ture is found, lines 950-990 transfer the 
screen pointer for the relevant feature 
to cells in the floating point ac- 
cumulator (FACC serves as free zero- 
page memory for this routine). Then 
lines 1000-1080 set up a short sub- 
routine in FACC to fetch bytes from 
the stored data. The screen pointer and 
the pointer to the stored data both are 
obtained from the Index entry for the 
command being implemented. 

Lines 1110-1150 get a byte from the 
stored data and set indexes for current 
use. The data byte is tested in lines 
1160-1210 to see if it is an ordinary 
datum or a special subcommand. 

If the byte is zero, it means that all 
data have been transfered, and control 
branches to get the next Face com- 
mand. Values one, two, and three, are 
special subcommands used to reduce 
the amount of space needed for data. 

Value one is a skip command. The 
byte following is fetched to determine 
how many screen cells to skip, and 
then the screen pointer is adjusted to 
accomplish this (lines 1330-1400). 

Value two is a duplicate command. 
The byte following the two is fetched 
to define the character to be duplicated. 
The byte after that is fetched to deter- 
mine how many times the character is 
to be displayed. Then the character is 
put on the screen the required number 
of times (lines 1420-1580). 

Value three causes a feature mani- 
pulation to be appended after the cur- 



rent one. The byte following the three 
is fetched and pushed on the stack. 
Thus it will be the next Face command 
to be implemented (lines 1250-1270). 

If the data byte is not zero, one, 
two, or three, then it is a character 
byte, and it is transfered directly to the 
screen (lines 1300-1310). Processing of 
data bytes continues in a loop until a 
zero value is found. 

The subroutine in lines 1630-2030 
searches the BASIC variable list for the 
FACES string. When it is found, the 
pointer to the string and the string's 
length are saved for use in the main 
program. If FA$ is not found, the pro- 
cedure aborts via the BASIC error 
routine. 

The Index shows the ASCII value 
for each command character, the place 
on the screen where the relevant fea- 
ture begins, and the point in memory 
(listing 4) where data for that command 
are stored. 





Chart 1 


Keyboard 




Character 


Effect on Face 


Complete face 




( 


Happiness 


) 


Sadness 


I 


Fear 


] 


Anger 


< 


Disgust 


> 


Surprise 


Eyebiows 




& 


Normal 


\ 


Arched high 


% 


Flat, lowered 


# 


Flat, raised 


$ 


Furrowed down 


Eyes 




T 


Normal, gaze forward 


I 


Normal, gaze down 


W 


Normal, gaze left 


O 


Normal, gaze right 


E 


Lids drooping, gaze forward ; 


Y 


Lids high, gaze forward 


R 


Lids high, gaze downward ' 


U 


Lids down, gaze forward 


Q 


Lids down, gaze left 


P 


Lids down, gaze right 


S 


Left eye closed 


K 


Right eye closed 


A 


Left eye tense closed 


L 


Right eye tense closed 


Mouth 




X 


Normal 


7 


Smiling 


z 


Grinning 


B 


Saddened ' 


V 


Frightened 


c 


Disgusted 


; N 


Dropped open 


M 


Opened showing teeth j 


j 


Lips pressed tight 


Other 




Shift Space 


Brief delay 


01234 


Construct grinning face 


5 


Chin up 


6 


Chin down 


7 


Nose normal 


9 


Nose up 
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Listing 3 








Listing 3 (Continued) 








0010 




tftKMft«*ffff*C««K# ««**«« »**«** 












0020 




t » 












0030 




* FACE * 












0010 
0050 
0060 
0070 START 




t * 


7817- E8 

7818- BD F7 78 


0950 DUMP 
0960 


INX ; 

LDA INDEX, X 


SET UP SCREEN POINTER IN FACC. 
; ;<SIZE> 






BA 30720 


; PLACE WHERE CODE BEGINS WHEN 


781B- 85 5E 


0970 


STA »FACC 












781D- BD F8 78 


0980 


LDA INDEX+1.X 


;<SIZE> 




0080 
0090 
0100 




USED. 


7850- 85 5F 


0990 


STA »FAC01 






,MC $7800 
.OS ! 


;PLACE WHERE CODE ASSEMBLES. 
jCREATE CODE. , 


7852- A9 BD 
7851- 85 60 


1000 
1010 
1020 


LDA #$BD 
STA »FACC+2 


;ST0RE LDA,X IN FACC. 

;SET UP DATA POINTER IN FACC. ' 




01 10 
0120 
0130 
0110 OUT 






7856- BD F9 78 


1030 


LDA INDEX+2.X 


;<SIZE> 1 




!dE $C369 


EASIC SUBROUTINE 
[ERROR ROUTINE <$EF0O IK 0.5. 


7859- 85 61 
785B- BD FA 78 
785E- 85 62 


1010 
1050 
1060 


STA »FACC+3 
LDA INDEX+3.X 
STA *FACC+1 


;<SIZE> , 




0150 
016 




1.0) ! 


7860- A9 60 


1070 


LDA #$60 


; STORE RTS IN FACC, ! 






ZERO PAGE USAGE 


7862- 85 63 


1080 


STA »FACC+5 






0170 PTR 
0180 LIM 


.DE 12 
,DE 11 


[BEGINNING OF VARIABLES 

;END OF VARIABLES ; 




1090 
1100 


; 


GO THROUGH DATA. 




0190 RAH 


.DE 52 


; LOCATION FOR HIGHEST RAM 


7861- AO FF 
7866- A2 FF 


1110 
1120 


LDY #255 
LDX #255 


;GET NEXT BYTE. 








ADDRESS 


7868- C8 


1130 GET0NE1 


INY 






0200 NAME 
0210 FACC 


,DE 66 
.DE 91 


;VARIABLE NAME 

; FLOATING POINT ACCUMULATOR 


7869- E8 
786A- 20 60 00 


1110 GET0NE2 
1150 


INX 

JSR FACC+2 






0220 
0230 

0210 ROW 


Ide 10 


SCREEN VARIABLES . 


786D- FO B1 
786F- C9 02 
7871- 90 11 


1160 
1170 
1180 


BEQ PRINT 
CMP #2 
BCC SKIPON 


;C0DE=0 IS END: DO NEXT COMMAND. 
;CODE=1 MEMS SKIP CELLS. 




0250 SCALP0 
026 BROW§ 
0270 MIDFACEg 
0280 CHEEKS! 
0290 NECKS 


.DE 32768 
.DE 32968 
.DE 33168 
.DE 33368 
.DE 33568 




7873- FO 1E 
7875- C9 03 
7877- DO 07 
7879- E8 


1190 

1200 
1210 
1220 
1230 

1210 


BEQ REPEAT 
CMP #3 

BNE TRANSFER 
INX ; 


;C0DE=2 MEANS REPEAT BYTE. 
;C0DE=3 MEANS APPEND. 




0300 BHOV/SS 


.DE 33059 






| 


;F0R APPEND: 




0310 EYESS 


.DE 33110 




787A- 20 60 00 


1250 


JSR FACC+2 


;GET COMMAND 




0320 R\EYE@ 


.DE 33150 




787D- 18 


1260 


PHA ; 


;AND PUSH ON STACK. 




0330 NOSES 


.DE 33311 




787E- DO E9 


1270 


BNE GET0NE2 






0310 MOUTHS 


.DE 33163 






1280 




;FOR NORMAL BYTE: 




0350 CHINS 


.DE 33620 






1290 


; 


;PUT IT ON SCREEN. 




0360 
0370 




# * «»»>«* #«««##««*« ««****«*« 


7880- 91 5E 


1300 TRANSFER 


STA (FACC),Y 










','88.?- DO El 


1310 


BNE GETONE1 






0380 




SYS 30720 FOR 32K, i 




1320 




;FOR SKIP: 




0390 
0100 
0110 




11336 FOR 16K, 

6111 FOR 8K. 

PROTECT SUBS FROM BASIC. 


7881- E5 
7885- 20 60 00 
7888- 18 


1330 SKIPON 

1310 

1350 


INX ; 
JSR FACC+2 
CLC ; 


{FIND NUMBER OF CELLS TO SKIP 
;AND ADD TO THE SCREEN POINTER. 


7800- A9 FF 


0120 INVOKE 


LDA #L, INVOKE- 1 


7889- 65 5E 


13.60 


ADC *FACC 




7802- 85 31 


0130 


STA *RAM 




788B- 85 5E 


1370 


STA *FACC 




7801- A9 77 


0110 


LDA #H, INVOKE- 1 ;<.aiLiL? 


788D- 90 DA 


1380 


BCC GET0NE2 




7806- 85 35 


0150 


STA »RAM+1 




788F- E6 5F 


1390 


INC "FACC+1 




7808- 60 


0160 


RTS 




7891- BO D6 


1100 


BCS GET0NE2 






0170 

0180 


" 


#*t«i*»ff««*«*« «»»«««*«**** 




1110 


; 


;FOR REPEAT: 








7893- E8 


1120 REPEAT 


INX f 


;GET THE CHARACTER 




0190 
0500 


i 


SYS 30729 FOR 32K, 
11315 FOR 16K, 
6153 FOR 8K, 


7891- 20 60 00 
7897- 18 


1130 
1110 


JSR FACC+2 
PHA 






0510 


! 


7898- E8 


1150 


INX ; 


;AND THE NUMBER OF REPEATS. 




0520 


» 




7899- 86 61 


1160 


STX »FACC+6 


;{ REMEMBER THE CURRENT 




0530 


; 


STACK THE SET OF COMMANDS. 








DATA INDEX.) 


7809- A9 16 


0510 FACE 


LDA #'F« 


;FIND THE FACES VARIABLE. 


789B- 20 60 00 


1170 


JSR FACC+2 




780B- 85 12 


0550 


STA *NAME 




789E- AA 


1180 


TAX 




780D- A9 11 


056 


LDA #'A« 




789F- 68 


1190 


PLA 




780F- 09 80 


0570 


ORA #128 






1500 


; 


;PUT THE CHARACTER ON THE 


7811- 85 13 


0580 


STA *NAME+1 










SCREEN 


7813- 20 AE 78 0590 
7816- A9 00 0600 


JSR FIND 
LDA #0 


; ;<SIZE> 

;END COMMANDS WITH A 0. 


78AO- 91 5E 
78A2- C8 


1510 ZIP 
1520 


STA (FACC),Y 

INY 




7818- 18 

7819- A1 5E 


0610 
06 20 


PHA 

LDY *FACC 
LDA (NAME) 
PHA ; 


;GET LENGTH OF COMMAND STRING 


78A3- DO 02 
78A5- E6 5F 


1530 

1510 


BNE CONT 
INC "FACC+1 




781B- B1 12 
781D- 18 


0630 STORE 
0610 


Y 

;PUT COMMANDS ON STACK I" 


78A7- CA 


1550 CONT 


DEX 




REVERSE ORDER. 


78A6- DO F6 


1560 


BNE ZIP 


;REPEATEDLY. 


781E- 88 
781F- CO FF 


0650 
0660 


DEY 

CPY #255 


78AA- A6 61 


1570 


LDX *FACC+6 


; RECOVER INDEX 




78AC- DO BB 


1580 


BNE GET0NE2 


;TO CONTINUE WITH DATA. 


7821- DO F8 


0670 

0680 


BNE STORE 






1590 
1600 

1610 
1620 






t*S*« **«*«*B**»fl*********** 




0690 


; 


IMPLEMENT THE COMMANDS. 








FIND VARIABLE IN BASIC LIST 


7823- A2 00 

7825- 68 

7826- 30 03 
7828- DO OD 
782A- 60 
782B- A2 60 


0700 PRINT 

0710 

07 20 

0730 

0710 

07 50 TIME 


LDX #0 

PLA 

BMI TIME 

BNE SEARCH 

RTS ; 

LDX #96 


;GET THE NEXT COMMAND. 

;DOME IF ZERO. 

; SHIFTED SPACE CAUSES DELAY. 


78AE- A5 2A 
78BO- 18 
78B1- A5 2B 
78B3- 18 
78B1- AO 00 
78B6- B1 2A 


1630 FIND 

1610 

1650 

1660 

1670 CHECK 

1680 


LDA *PTR 

PHA 

LDA «FTR+1 

PHA 

LDY ifO 

LDA <PTR),Y 


;SAVE TABLE POINTER. 

; COMPARE NAME IN VARIABLE TABLE 


782D- AC 00 
782F- 88 
7830- DO FD 

7832- CA 

7833- DO FA 


0760 

0770 DELAY 

07 60 
07 90 
0800 


LDY #0 

DEY 

BNE DELAY 

DEX 

BNE DELAY 




78B8- C5 12 
78BA- DO 08 
78BC- C8 
78BD- B1 2A 
78BF- C5 13 


1690 
1700 
1710 
1720 
1730 


CMP *NAME 

BNE AGAIN2 

INY 

LDA (PTR),Y 

CMP *NAME+1 


;WITH CRITERION NAME. 


7835- FO EC 


0810 
0820 
0830 
0810 


BEQ PRINT 




78C1- FO ID 


1710 


BEQ POINT 


;IF NO MATCH, THEN 






PREPARE FOR DATA TRANSFER. 
;FIND THE POINTERS FOR THE 


78C3- 88 
78C1- A9 07 
7 8C6- 18 


1750 

1760 AGAIN2 

1770 


DEY 
LDA #7 
CLC 


;GET POSITION OF NEXT VARIABLE 


7837- DD F7 


78 0850 SEARCH 


CMP INDEX, 


COMMAND. 
% ; ;<SIZE> 


78C7- 65 2A 
7 8C9- 85 2A 


1780 
1790 


ADC *PTR 
STA *PTR 




783A- FO OB 


0860 


BEQ DUMP 




78CB- A9 00 


1800 


LDA #0 




783C- E8 


0870 


INX 




78CD- 65 2B 


1810 


ADC «PTR+1 




783D- E8 


0880 


INX 




78CF- 85 2B 


1820 


STA «PTR+1 




783E- E8 


0890 


INX 




78D1- C5 2D 


1830 


CMP *LIM+1 


;IF NOT END OF VARIABLES 


783F- E8 


0900 


INX 




78D3- DO DF 


1810 


BNE CHECK 


;THEN CONTINUE SEARCHING. 


7810- E8 


0910 


INX 




78D5- A5 2C 


1850 


LDA *LIM 




7811- EO D7 


0920 


CPX #INDEX\SIZE 


78D7- C5 2A 


1860 


CMP *PTR 




7813- DO F2 


0930 


BNE SEARCH 




78D9- DO D9 


1870 


BNE CHECK 




7815- FO DC 


0910 


' BEQ PRINT 


;NOT FOUND— GO TO NEXT; 

COMMAND. | 


78DB- A2 81 


1880 


LDX #$81 


flF NAME NOT FOUND, ABORT. 
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Listing 3 (Continued) 



78DL1- 

78E0- 
78E2- 
7 8E4- 
78E6- 
78E7- 
78E9- 



'IC 65 

flO 02 

B1 2A 

85 5E 
C8 

B1 2A 

85 42 



78EB- C8 
78EC- B1 2A 
78EE- 85 43 
78F0- 68 

78F1- 85 2B 
78F3- 68 
78F4- 85 2A 
78F6- 60 



78F7- 30 
7 8F8- 00 80 
78FA- CE 79 

78FC- 31 
78FD- C8 80 
78FF- 24 7A 

7901- 32 

7902- 90 81 
7904- 89 7A 

7906- 33 
7 907- 58 62 

7909- 07 7B 

790B- 34 
790C- 20 83 
790E- 6D 7B 

7910- 26 

7911- 23 81 

7913- FF 7C 

7915- 5C 

7916- 23 81 

7918- 8F 7D 

791A- 25 
791B- 23 81 
791D- 20 7D 

791F- 23 
7920- 23 81 
7922- 47 7D 

7 924- 24 
7 925- 23 81 

7927- 6A 7D 

7929- 5^ 
792A- 74 81 
7 92C- C5 7B 

792E- 52 
792F- 74 81 
7931- EO 7B 

7933- 45 

7934- 74 81 
7936- FB 7B 

7938- 55 

7939- 74 81 
793B- 16 7C 

7 93D- 57 
793E- 74 81 

7940- 31 7C 

7942- 4F 

7943- 74 81 
7945- 4C 7C 

7947- 53 
792j8- 74 81 
794A- 67 7C 

794C- 4B 
794D- 7E 81 
794F- 72 7C 

7951- 41 

7952- 74 81 
7954- 7D 7C 



1890 

1900 POINT 

1910 

1920 

1930 

1940 

1950 

1960 
1970 



1990 

2000 
2010 
2020 
2030 
2040 
2050 

2060 INDEXXSIZE 
2070 

2080 INDEX 
2090 
2100 
2110 
2120 
2130 
-2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
226 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
237 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26 80 

26 90 
2700 
2710 
2720 

27 30 
2740 
2750 
2760 
2770 
27 80 
2790 
2800 
2810 
2820 
2830 



J MP OUT 

LDY #2 

LDA (PTE),Y 

STA *FACC 

IHY ; 

LDA (PTR),Y 

STA *NAME 

INY 

LDA (PTR),Y 
STA »NAME+1 
PLA ; 

STA "PTR+1 

PLA 

STA *PTR 

RTS 



;FOR THE MATCHING VARIABLE, 
;GET LENGTH OF STRING 
;AND STORE FOR LATER. 
J THEN GET POINTER TO STRING 

;AND STORE IN THE NAME 
CELLS. 



; RESTORE POINTER FOR 
VARIABLE TABLE. 



HIIHHfllllHI *»»««**«» 



SE SCALPS 
SI SCALP 

BY '1' 
SE BROWS 
SI BROW 



SE MIDFACES 
SI MIDFACE 

BY '3' 

SE CHEEKS§ 

SI CHEEKS 



SE NECKS 
SI NECK 

BY »&» 
SE BROWSS 
SI BROWXUP 

BY '\' 
SE BROWSS 

SI BROWXHIGH 

BY T 
SE BROWSS 
SI BROWNS AD 

BY »#• 

SE BROWSE 
SI BROWXFEAK 



SE BROWSS 
SI EROWXDOWM 

BY 'T» 

SE EYESS 

SI EYESXAHEAB 



SE EYESS 

SI EYES\DOWN 



SE EYESS 
SI EYESXSAD 



SE EYESS 

SI EYESXBULGE 



SE EYESS 

SI EYESXLEFT 



SE EYESS 

SI EYESXRIGKT 



SE EYESS 

SI L\EYE\CLOS 



SE RXEYES 

SI R\EYE\CLOS 



SE EYESS 

SI L\EYE\SQEZ 



Listing 3 (Continued) 



7956- 4C 

7957- 7E 81 
7959- 88 7C 

795B- 55 
795C- 74 81 



7960- 51 

7961- 74 81 
7963- AE 7C 

7965- 50 

7966- 74 81 
7968- C9 7C 

7 96A- 49 
796B- 74 81 
796D- E4 7C 

796F- 37 

7970- 40 82 
7972- A2 7F 

7974- 39 

7975- 40 82 
7977- B6 7F 

7979- 5A 
7 97 A- B7 82 
797C- KB 7D 

7 97E- 3F 
7 97F- B7 82 
7981- DF 7D 

7983- 58 

7984- B7 82 
7986- OD 7E 

7988- 4E 

7989- B7 82 
798B- 3B 7E 

798D- 42 
7 98E- B7 82 

7990- 6D 7E 

7992- 56 
7 993- B7 82 
7995- 95 7E 



7997- 
7998- 
799A- 

799C- 

799D- 
799F- 



B7 82 
C9 7E 



B7 82 
33 7F 



7 9A2- B7 82 
79A4- 01 7F 



79A6- 
7 9A7- 
79A9- 

79AB- 
7 9AC- 
79AE- 



35 
54 83 

61 7F 

36 

54 83 
82 7F 



79BO- 28 
79B1- 00 00 
79B3- CA 7F 

79B5- 29 
7 9B6- 00 00 
79B8- D1 7F 

Y9BA- 5E 
7 9BB- 00 00 
7 9BD- D6 7F 

7 9BF- 5D 
7 9C0- 00 00 
7 9C2- DD 7F 

7 9C4- 3C 
79C5- 00 00 
79C7- E4 7F 

79C 9- 3E 

79CA- 00 00 
79CC- EB 7F 



2840 
2850 
2860 
2870 
2880 
2890 

29O0 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
306 
3 070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
326 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
36 3D 
3640 

36 50 
3660 
3670 
J680 
3690 
3700 
3710 

37 20 
3730 
3740 
3750 
3760 
3770 
37 80 



'.BY 

.SE 
.SI 


•L» 

RXEYES 

R\EYE\SQEZ 


• BY 

.SE 


EYESS 


.SI 


EYEXHOOD 


.BY 
• SE 
.SI 


IQI 

EYES§ 
EYE\HOOD\L 


.BY 
.SE 

.SI 


•P 1 

EYES§ 
EYE\HOOD\R 


.BY 'I' 

.SE EYESS 

.SI EYE\HO0D\D 


.BY 
.SE 
.SI 


»7' 

NOSES 

BOSEXKBML 


.BY '9' 
.SE NOSES 
.SI NOSEXUP 


.BY 'Z' 
.SE MOUTHS 
.SI GRIN 


.BY 

.SE 

.SI 


MOUTHS 
SMILE 


• BY 
.SE 
.SI 


'X* 

MOUTH § 
LIPSNFLAT 


.BY 

.SE 

.SI 


MOUTH § 
LIFSVOPEH 


.BY 
.SE 
.SI 


•B« 

MOUTHS 

LIPSYDOWN 


.BY 
.SE 
.SI 


TV- 
MOUTHS 
LIPS\FEAR 


.BY 
.SE 
.SI 


MOUTHS 
LIPSXSNARL 


.BY 

.SE 
.SI 


MOUTHS 

LIPSXPRESS 


.BY 
.SE 
.SI 


MOUTHS 
LIPSXDSGST 


.BY 
.SE 
.SI 


'5' 

CHINS 
CHINXUP 


.BY 
.SE 
.SI 


'6' 

CHINS 
CHINXDOWN 


.BY 

.SE 
.SI 




HAPPY 


!by 

.SE 
.SI 




SAD 


.BY 
.SE 
.SI 




SCARED 


I BY 
• SE 
.SI 



MAD 


I BY 
.SE 
.SI 




DISGUSTED 


.BY 
.SE 
• SI 




SURPRISED 
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Listing 4 






79CE 


02 


AO 06 74 


02 20 08 64 


T9D6 


6F 


62 F8 E3 


F8 62 6F 64 


79DE 


02 


20 08 6A 


02 AO OD 02 


79E6 


20 


07 6C FE 


02 AO 09 62 


79EE 


7B 


02 20 07 


02 AO OC EA 


79F6 


02 


20 07 02 


AO OD 02 20 ' 


79FE 


07 


F4 02 AO 


OB 61 02 20 


7A06 


06 


E9 02 AO 


OD DF 02 20 


7A0E 


06 


E1 02 AO 


OB 75 02 20 


7A16 


05 


6C 02 AO 


OF 7B 02 20 


7A1E 


05 


6A 02 AO 


06 00 02 AO 


7A26 


05 


02 20 06 


02 AO 11 02 


7A2E 


20 


06 02 AO 


OA F6 02 20 


7A36 


05 


E9 02 AO 


11 DF 02 20 


7A3E 


05 


E1 02 AO 


09 75 02 20 


7A46 


04 


E9 AO 01 


11 AO DF 02 


! 7A4E 


20 


04 76 02 


AO 09 74 20 


7A56 


20 


20 6C AO 


AO 01 11 AO 


7A5E 


AO 


7B 20 20 


20 6A 02 AO I 


7A66 


09 


02 20 04 


FE 02 AO 04 


7A6E D2 F9 C6 AO 


AO E5 AO E7 


7A76 


AO 


AO C6 F9 


D2 02 AO 04 


7A7E 


FC 


02 20 04 


F5 02 AO 04 


7A&6 


03 


26 00 AO 


AO AO E7 20 


7A8E 


6C 


62 FE DD 


02 AO 04 CD [ 


7A96 


79 


FE FD AO 


C2 AO C2 AO 


7A9E 


ED 


FC 79 CE 


02 AO 04 DD 


7AA6 


FC 


62 7B 20 


76 02 AO 07 


7AAE 


EA 


20 E1 AO 


9C D9 02 AO 


7AB6 


09 


C8 AO D4 


02 AO 09 D4 


7ABE 


CE 


AO 61 20 


6A 02 AO 07 


7AC6 


EA 


20 7C FB 


AO AO C7 02 


7ACE 


AO 


13 D9 AO 


AO EC 7E 20 


7AD6 


6A 


02 AO 07 


E7 20 20 20 


7ADE 


E2 


FB C8 02 


AO 13 C7 EC 


7AE6 


E2 


20 20 20 


76 02 AO 08 


I 7AEE 


75 


20 20 20 


E1 E7 02 AO 


7AF6 


08 


D5 AO C9 


02 AO 08 E5 


7AFE 


61 


02 20 04 


F4 02 AO 04 ! 


7B06 


00 


02 AO 04 


61 20 20 20 


7B0E 


6A 


02 AO 08 


F2 C6 AO C6 


7B16 


F2 


02 AO 08 


74 20 20 20 


7B1E 


6A 


02 AO 09 


75 02 20 04 


7B26 


F4 


02 AO 08 


C5 E3 C5 02 


7B2E 


AO 


08 EA 02 


20 04 76 02 ! 


7B36 


AO 


09 02 20 


05 E1 02 AO 


7B3E 


13 


61 02 20 


05 02 AO 08 


7B46 


EA 


02 20 05 76 EE 02 AO 


7B4E 


11 


FO 75 02 


20 05 F4 02 


7B56 


AO 


07 61 02 


20 05 6A ED 


7B5E 


EE 


02 AO OF 


FO FD 74 02 


7B66 


20 


05 E1 02 


AO 04 00 AO 


7B6E 


AO 


AO 74 02 


20 05 67 AO 


7B76 


9C 


02 AO OF 


CE AO 65 02 


7B7E 


20 


05 6A 02 


AO 07 02 20 


7B86 


06 


67 02 AO 


13 74 02 20 


7B8E 


06 


02 AO 06 


61 02 20 06 


7B96 


6A 


02 AO 13 


75 02 20 06 


7B9E 


E1 


02 AO 05 


02 20 07 76 


7BA6 


02 


AO 13 61 


02 20 07 02 


7BAE 


AO 


04 EA 02 


20 07 E1 02 


7BB6 


AO 


13 F6 02 


20 07 76 02 


7BBE 


AC 


02 03 5A 


03 35 00 AO 


7BC6 


D2 


F9 C6 AO 


01 05 AO C6 


7BCE 


F9 


D2 AO 01 


19 AO CD 79 


7BD6 


FE 


FD 01 05 


ED FC 79 CE 


7BDE 


AO 


00 AO D2 


C6 C6 AO 01 


7BE6 


05 


AO C6 C6 


D2 AO 01 19 


i 7BEE 


AO 


CD 20 FE 


FD 01 05 ED 


I 7BF6 


EC 


20 CE AO 


00 E4 D2 F9 i 


7BFE 


C6 


CB 01 05 


CA C6 F9 D2 


7C06 


E4 


01 19 AO 


9C 79 FE FD 


7C0E 


01 


05 ED FC 


79 AF AO 00 


7C16 


AO 


AF F9 9C 


AO 01 05 AO 



Listing 


4 (Continued) 




7C1E 


AF 


F9 


9C AO 01 19 


AO 9C 


7C26 


79 


FE 


FD 01 05 ED 


FC 79 


7C2E 


AF 


AO 


00 AO D2 F9 


C6 AO 


7C36 


01 


05 


AO F9 C6 D2 


AO 01 


7C3E 


19 


AO 


CD 62 AO FD 


01 05 


7C46 


ED 


62 


AO CE AO 00 


AO D2 


7C4E 


C6 


F9 


AO 01 05 AO 


C6 F9 | 


7C56 


D2 


AO 


01 19 AO CD 


AO 62 


! 7C5E 


FD 


01 


05 ED AO 62 


CE AO 


7C66 


00 


02 


AO 05 01 23 


AO 9C 


7C6E 


C6 


C6 


FD 00 02 AO 


05 01 ! 


7C76 


23 


ED 


C6 C6 AF AO 


00 02 


7C7E 


AO 


05 


01 23 AO E3 


C5 C4 


7C86 


FD 


00 


02 AO 05 01 


23 ED 


7C8E 


C4 


C5 


E3 AO 00 AO 


E4 E4 


7C96 


E4 


AO 


01 05 AO E4 


E4 E4 


7C9E 


AO 


01 


19 AO CD 79 


FE FD 


7CA6 


01 


05 


ED FC 79 CE 


AO 00 i 


7CAE 


AO 


E4 


E4 E4 AO 01 


05 AO 


7CB6 


E4 


E4 


E4 AO 01 19 


AO CD 


7CBE 


62 


AO 


FD 01 05 ED 


62 AO 


7CC6 


CE 


AO 


00 AO E4 E4 


E4 AO 


7CCE 


01 


05 


AO E4 E4 E4 


AO 01 ! 


7CD6 


19 


AO 


CD AO 62 FD 


01 05 


7CDE 


ED 


AO 


62 CE AO 00 


AO E4 


7CE6 


E4 


E4 


AO 01 05 AO 


E4 E4 


7CEE 


E4 


AO 


01 19 AO CD 


20 FB 


7CF6 


FD 


01 


05 ED EC 20 


CE AO 


7CFE 


00 


EF 


77 63 E2 EF 


02 AO 


7D06 


07 


EF 


E2 63 77 EF 


01 17 ' 


7D0E 


F7 


AO 


AO F8 79 77 


FB AO 


7D16 


AO 


AO 


EC 77 79 F8 


AO AO 


7D1E 


F7 


00 


AO E4 EF E4 


AO E4 


7D26 


EF 


AO 


AO AO EF E4 


AO E4 ! 


7D2E 


EF 


E4 


AO 01 17 62 


F8 62 


7D36 


79 


6F 


79 F7 AO AO 


AO F7 


7D3E 79 


6F 


79 62 F8 62 


03 45 


7D46 


00 


F9 


E2 78 E2 F9 


E2 F9 


7D4E 


AO 


AO 


AO F9 E2 F9 


E2 78 


7D56 


E2 


F9 


01 17 E3 AO 


E3 F7 


7D5E 


F8 


F7 


02 AO 05 F7 


F8 F7 


7D66 


E3 


AO 


E3 00 EF 78 77 F9 


7D6E 


EF 


E4 


AO DD DD DD 


AO E4 


7D76 


EF 


F9 


77 78 EF 01 


17 F7 


7D7E 


AO 


E3 


F8 79 6F 7C 


CB AO 


I 7D86 


CA 


7E 


6F 79 F8 E3 


AO F7 


7D8E 


00 


AO 


78 63 6F 64 


63 FB 


7D96 


AO 


AO 


AO EC 63 64 


6F 63 


7D9F 


76 


AO 


01 17 7F E3 


02 AO 


7DA6 


CD 


E3 


FF AO 00 AO 


AO F4 


7DAE 


EF 


E4 


EF E4 AO AO 


01 1F 


| 7DB6 


7B 


6C 


62 62 79 62 


62 7B 


7DBE 


6C 


01 


IF AO 7B 63 


77 77 


7DC6 


77 


63 


6C AO 01 1F 


AO AO 


i 7DCE 


F7 


F8 


F7 F8 F7 AO 


AO 01 | 



7DD6 
7DDE 
7DE6 
7DEE 
7DF6 
7DFE 
7E06 
7E0E 
7E16 
7E1E 
7E26 
7E2E 
7E36 
7E3E 
7E46 
7E4E 
7E56 
7E5E 
7E66 



1E 02 

00 AO 
AO AO 
52 46 
F7 79 

01 1F 
AO OB 
AO 09 
77 63 

62 63 
01 1F 
AO AO 
03 35 
01 1F 

63 5F 
E2 E2 
AO FC 
1E 02 
AO 04 



AO OB 03 
AO E4 EF 

01 1F 7B 
46 43 6C 
6F 79 6F 

02 AO 09 

03 35 03 

01 1F EC 
77 76 FB 
63 45 63 
AO AO AO 
AO 01 1E 
03 37 00 
AO 69 63 
AO 01 1F 
E2 7E 20 

02 20 05 
AO 04 F8 

03 36 03 



35 03 37 
E4 EF E4 
43 46 46 
01 1F AO 
79 F7 AO 
01 1E 02 
37 00 02 
78 77 63 

01 1F AO 
63 62 AO 
F7 E3 F7 

02 AO OB 
02 AO 09 
20 63 20 
AO 20 7C 
AO 01 1F 
FE AO 01 
62 F8 02 
37 00 02 



Listing 


4 (Continued) 


; 7E6E 


AO 


09 


01 1F EC 77 63 46 


7E76 


63 


46 


63 77 FB 01 1F F7 


7E7E 


E3 


F8 


62 F8 62 F8 E3 F7 


7E86 


01 


1F 


02 AO 09 01 1E 02 


j 7E8E 


AO 


OB 


03 35 03 37 00 AO 


7E96 


AO 


E4 


EF E4 EF E4 AO AO 


7E9E 


01 


1F 


69 6C 62 62 79 62 


7EA6 


62 


7B 


5F 01 1F DF 63 77 


7EAE 


78 


77 


77 63 63 E9 01 1F 


7EB6 


AO 


AO 


F7 F& F7 F6 F7 AO 


7EBE 


AO 


01 


1E 02 AO OB 03 35 


7EC6 


03 


37 


00 AO AO EF F9 EF 


! 7ECE 


F9 


EF 


AO AO 01 1F AO 69 


7ED6 


6C 


F8 


F8 F8 7B 5F AO 01 


7EDE 


1F 


E7 


02 20 07 E5 01 1F 


7EE6 


AO 


DF 


77 F9 EF F9 77 E9 


7EEE 


AO 


01 


1E 02 AO 03 F7 F8 


7EF6 


62 


F8 


F7 02 AO 03 03 36 


! 7EFE 


03 


37 


00 AO EC 77 77 78 


7F06 


77 


77 


FB AO 01 1F AO 6C 


7F0E 


02 


AO 


05 7B AO 01 1F AO 


7F16 


79 


20 


63 63 63 20 79 AO 


7F1E 


01 


1F 


AO AO AO E3 AO E3 


7F26 


AO 


AO 


AO 01 1E 02 AO OB 


7F2E 03 


35 


03 39 00 AO EF F9 


7F36 


E2 


F9 


E2 F9 EF AO 01 1F 


7F3E 


C5 


F6 


62 79 62 79 62 F8 


7F46 


C5 


01 


1F CP AO AO AO F2 


7F4L 


AC 


AO 


AC CB 01 IF 02 AO 


7F56 


09 


01 


1E 02 AO OB 03 35 


7F5E 


03 


39 


00 ED EE 01 OB FO 


7F66 


FD 


01 


1A AO C4 EE 01 07 


7F6E 


FO 


C4 


AO 01 1D AO C3 D2 


7F76 


CO 


D2 


CO D2 C3 AO 01 20 


7F7E 


02 


AO 


07 00 CD AO 01 OB 


7F86 


AO 


CE 


01 1A CA C9 02 AO 


7F8E 


09 


D5 


CB 01 ID 9C 02 AO 


! 7F96 


07 


AF 


01 20 E3 C4 E3 C4 


I 7F9E 


E3 


C4 


E3 00 AO AO D5 AO 


7FA6 


C9 


AO 


AO 01 22 F2 C6 AO 


7FAE 


C6 


F2 


01 24 C5 E3 C5 00 


7FB6 


CE 


AO 


D5 AG C9 AO CD 01 


7FBE 


22 


ED 


D2 AO D2 FD 01 24 


7FC6 


AO 


E3 


AO 00 03 26 03 54 


7FCE 


03 


5A 


00 03 25 03 42 00 


7FD6 


03 


23 


03 59 03 56 00 03 


7FDE 


24 


03 


55 03 2C 00 03 26 


7FE6 


03 


55 


03 43 00 03 5C 03 



7FEE 59 03 4E 00 12 20 12 20 



Additional Readings 

Paul Ekman and Wallace V. Friesen, 
Unmasking the Face (Prentice-Hall, 
1975), and Carrol E. Izard, The Face of 
Emotion (Appleton-Century-Crofts, 
1971). 

David Heise is Professor of Sociology at 
Indiana University. He recently edited 
"Microcomputers in Social Research" 
[Sage Publications, 1981). His books 
include Causal Analysis and 
Understanding Events. He plans to use the 
face program in a longer program for 
simulating social interaction. He may be 
contacted at the Department of Sociology, 
Indiana University, Bloomington, IN 
47405. 
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"V". 



IMAGE PRINTER SERIES 

Sensible Software is proud to introduce our new series of high 
resolution screen dumps. IMAGE PRINTERS provide a simple way 
to transfer high resolution graphic images onto paper. Each pro- 
gram in the series has unique features that give you full control of 
the printing. Some of the included options are: 

• Full control over the area of the HIRES screen to be printed. You 
graphically pick the area for the utmost ease and accuracy. 

• One-step printout of the picture with the ability to pause or abort 
the printing at any time. 

Menu-driven. All options are invoked with single keystrokes. 
IMAGE PRINTERS are extremely easy to use. 

1 Multiple image sizes, 6 different sizes for letter quality printers, 
4 sizes for other printers. 

• Creation of an inverse (negative) image for reverse printing. 
• The ability to save the compressed and inverse images to 
disk. 

• One time configuring for your printer and interface card. 
Why answer all those questions about your printer each 
time you want to print a picture? 
1 The images may be printed anywhere on the page. 
IMAGE PRINTERS support most popular interface 
cards, such as cards from Apple, California Compu- 
ter Systems, Epson, and Mountain Computer. (The 
SSM AIO Serial Card and user-written 'driver' 
routines may be used with the letter quality 
printers. 

There are three separate versions of IMAGE 
PRINTERS, each one tailored to take full ad- 
vantage of a different printer. 

IMAGE PRINTER— LETTER QUALITY. For 

all popular letter quality printers (Diablo, 

NEC, Qume, etc. 

IMAGE PRINTER— EPSON. For the 
popular Epson MX-70, MX-80 and 
MX-100. 
IMAGE PRINTER— NEC PO8023A. 
the NEC dot-matrix printer. 

All versions ore available 
for $40.00 ea« 

Please specify version desired. 



Sensible Software 

6619 Perham Drive Dept. M 

West Bloomfield, Michigan 

48033- (313)399-8877 

Visa and Mastercard 

Welcome 

Please add $1.25 

postage and 

handling per 

diskette 
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® UErsaWriter & APPLE II: 

The Keys to Unlimited Graphics 



DRAWING TABLET 

Although VersaWriter operates on a 
simple principle, it produces graphics 
which match or exceed those of other 
digitizers. Rugged construction, trans- 
lucent base, easy to use — plugs 
directly into APPLE II. 




GRAPHICS SOFTWARE 

Easily the most capable and com- 
plete graphics software for the home 
computer available. Fast fill drawings 
in 100 colors. All text in five sizes, 
compile and display shapes, edit, 
move and much more! 




UNIQUE OFFER 

See VersaWriter at your local dealer and 
pick up a copy of our demonstration 
disk. The complete VersaWriter hardware 
and software package is a real bargain 
at $299. For more information call or 
write: 





EZ Port Will Solve Your 
Game I/O problem! 

How many times have you gone through 
the hassle of changing from game 
paddles to joystick, VersaWriter, or 
any other device using the game I/O? 
First, you have to remove whatever is 
sitting on top of the Apple-a video 
terminal, disk drives, printer, etc. 

Next you remove the computer cover 
and try to see what you're doing as 
you switch plugs to the I/O. Then you 
replace the computer cover and what- 
ever was on top of the Apple. 

After all this, you find that you can't 
run the program because the I/O 
device is plugged in backwards or is 
'off by a pin'. 

Sound familiar? 



EZ PORT GAME 

I/O EXTENDER 

FOR APPLE II 



WHAT IS EZ PORT? 

EZ Port is a specially designed exten- 
sion unit for the Apple game I/O port. 
It's a board with a socket and a two 
foot long cable which plugs into the 
internal I/O port. You attach EZ Port 
wherever you prefer on the outside- 
on the side, the back, or on top. 

EZ Port has a ZIP DIP II socket 
(ZIP=zero insertion force). These soc- 
kets are meant to be plugged into 
many times and will not wear out like 
ordinary sockets. All you do is plug in 
the appropriate device (joystick, pad- 
dles, etc.) and flip the switch to the 
ON position. No pressure is exerted 
on the 16-pin plug until you switch, 
so all the connectors will last longer, 
too! 




EZ PORT MAKES CAME I/O 

CHANGES CONVENIENT, 

QUICK & SAFE. 

Suggested price $24.95 

Ask your local computer retailer for 
EZ Port, or contact: 

VersaComputing, Inc. 

3541 Old Conejo Rd. Suite 1 04 

Newbury Park, CA 91320 

(805)498-1956 

Dealers inquiries welcome. 

Apple and Apple II are registered trademarks 
of Apple Computer, Inc. 

ZIP DIP is a trademark of Textool Products, Inc. 



Uersa Computing, Inc. 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91320 (805)498-1956 
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A Low-Cost Digitizer 
for the Apple 



byJaySinnett 



If you have a computer with 
high-resolution graphics, then 
you already own 99% of a 
digitizer with equal resolution. 
This article tells you how to use 
a sheet of half-reflecting plastic 
to build the rest. The modular 
demonstration program should 
be easy to customize to your 
application. The article also 
describes a "crashproof" disk 
access which should be of 
interest to those who have 
puzzled over details of the 
Applesoft ONERR GOTO 
command. 

Digitizer Demo 

requires: 

Apple II or Apple II Plus 
with 48K 
One disk drive 
Applesoft BASIC 
Although Digitizer Demo is 
implemented on the Apple II, 
the method described here 
can be implemented on any 
microcomputer offering high- 
resolution graphics 

A digitizer is a device used to translate 
pictures into sets of X and Y coor- 
dinates for use in a computer. Digi- 
tizers are used in research for measur- 
ing the size, shape, or position of objects 
that have been photographed or video- 
taped, reading strip chart recordings, 
etc. Hobbyists might use digitizers to 
copy shapes into the computer's 
memory from drawings made with pen- 
cil and paper. Unfortunately, most 
digitizers available for use with popular 
microcomputers cost several hundred 
dollars. In this article, I will describe 
one that can be built for under $20.00 
and can be used with any microcom- 
puter having high-resolution graphics. 
A sample program written for the Apple 
II 1 demonstrates the simplicity of the 
software required to implement the 
digitizer. 



Most inexpensive digitizers work 
this way: the operator moves a 
mechanical pointer around on a photo 
or drawing while its X and Y coor- 
dinates are measured electrically and 
sent to the computer. Usually the 
pointer has to be in physical contact 
with the picture so that the operator's 
perspective won't cause parallax errors. 
In this digitizer the pointer is actually a 
cursor on the Apple's high-resolution 
screen. This is optically superimposed 
onto the photo, drawing, or flat object 
to be digitized using a half-silvered 
("two-way") mirror. When this is done 
correctly, there is no parallax error 
because both images are optically in 
the same place. 



To build the digitizer, I first placed 
two identical monitors facing each 
other, about 10' ' apart, with a sheet of 
window-plastic exactly halfway be- 
tween them and parallel to the monitor 
screens, as shown in figure 1. This 
worked, but plastic alone reflected 
weakly, and there was an image from 
both near and far sides, which was 
distracting. Then I obtained some half- 
silvered two-way mirror plastic film 
and applied it to the near side of the 
window: success! Both direct and 
reflected images were equally strong, 
and only one reflection was visible. 

The reflecting plastic I used was 
secondhand and did not form a perfectly 
smooth surface. Because the uneveness 
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caused by tiny bubbles in the plastic 
distorted the reflected image, I found it 
best to look through the mirror at the 
video image, while using the reflected 
image of the Apple monitor. (A slight 
distortion of the cursor on the reflected 
Apple monitor seemed to be less dis- 
tracting than distortion of the picture 
being digitized.) This arrangement also 
let me see the picture without a left- 
right reversal caused by mirror reflec- 
tion. A third monitor was used for nor- 
mal Apple monitor functions, so that 
the one being used for digitizing could 
be left in place once it was aligned. 

If you want to digitize photos, draw- 
ings, etc., and you don't have extra 
monitors, I recommend you follow the 
layout of figure 2. In this setup you can 
read your Apple monitor normally 
through the glass. New one-way plastic 
carefully applied to a clean pane of win- 
dow glass should give you acceptably 
clear reflections of the picture you are 
working on; if not, you can get a glass 
one-way mirror. The one-way plastic is 
sold in nationwide automotive parts 
and customizing shops; a 20-inch by 
10-foot roll costs $10 - $15. One-way 
glass is more expensive; an 18-inch by 
18-inch pane will set you back $20 -$30. 
A reading lamp may be needed to bal- 
ance the intensities of the two images. 

Before you can begin digitizing, the 
images must be aligned correctly, and 
the best tools are your eyes. First, set 
up the equipment as shown in figure 2. 
Be careful to have the mirror, monitor, 
and picture vertical, not leaning either 
way. Run the DIGITIZER DEMO pro- 
gram and use the paddles to align the 
cursor from the Apple monitor directly 
over the reflection of some spot on the 
picture. A small dot that just fits 
within the cursor works well. Now 
lean your head close to the mirror. 
With the aid of binocular (both eyes) 
depth perception, you should be able to 
see whether the cursor or the spot ap- 
pears to be closer to you. Move either 
the picture or the monitor until the 
reflected image appears to be exactly 
the same distance from you as the non- 
reflected one. (This is easier than it 
sounds!) Check two or three points to 
be sure the angles are right. 

With precise alignment, the image 
of a stationary cursor won't move with 
respect to the picture even when you 
move your head. In fact two people can 
look at the setup at once and see the 
same thing! The principle behind this 
position- independent superimposition 
is the optical law that states: "the 
angle of incidence is equal to the angle 
of reflection. ' ' This law will work even 




Figure 3 
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if the monitor screen and the picture 
are not parallel to the glass. Just be sure 
that the reflection lines up exactly with 
the direct image. In figure 3, as long as 
Dl = D2 and is the sa tie on both 
sides, the eye can be movec freely and 
the images will remain superimposed. 

Obviously, the size of the picture 
you can digitize is limited by the size of 
your monitor screen, and the resolu- 
tion is set by the Apple's 280 by 192 
high-resolution grid. Most television 
monitors introduce some distortion to 
both horizontal and vertical axes, 
squeezing the picture in some places 
and stretching it in others. To remedy 
this, calibrate your own particular 
monitor by digitizing many points 
from an accurate target grid (such as 
graph paper) . Then calculate correction 
factors to map the monitor's coor- 
dinates into an accurate array. 

The digitizer demonstration pro- 
gram presented in listing 1 was designed 
to allow easy modification or expan- 
sion. It is written in structured format 
with several small blocks of code, each 
performing only one well-defined func- 
tion, much like procedures in Pascal. 

Lines 

1000-1240 Initialize variables. 

1700-1850 Load a binary file which 
defines cursor shapes. 

2000-2050 Read paddle values. Scale 
to be within the range 0-1 . 

3000-3070 Translate paddle values to 
X and Y coordinates for 
display. Use offset 'and 
scale factors. 



4000-4080 Draw cursor on screen at 
selected location. Remem- 
ber location. 

4500-4550 Erase cursor from remem- 
bered screen location. 

5000-5050 Print current cursor loca- 
tion on screen in text 
window. 

6000-6090 Read and debounce buttons . 

7000-7560 Toggle from coarse to fine 
motion control and back 
again. 

8000-8050 Pseudo output routine... 
print cursor location on 
screen in text windows. 

9000-9050 Check keyboard for any 
activity. 

20000-20 160 Main routine. 

Lines 1060, 1070, and 1180 extract 
the address of a BLOADED shapefile 
from the DOS file pointer 2 (of a 48K 
Apple) and copy it into the Applesoft 
shapefile pointer. (This technique can 
be helpful in shape-generating pro- 
grams, too.) 

Lines 1700-1850 are a crashproof 
version of a BLOAD command that 
returns an error flag, ER, if the specified 
file is not on disk. If there is any kind of 
error in reading file SF$ from the disk in 
line 1780, control will immediately be 
passed to line 1800. This is the func- 
tion of the Applesoft ONERR GOTO 
1800 command in line 1770. The Apple- 
soft manual 3 warns you that ONERR 
GOTO has a bug and gives you a 
machine-language patch to fix it. This 
is exercised by the CALL 768 in line 
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1840 (which assumes that the patch 
has been placed into memory as in- 
structed in the manual]. When the 
Apple returns from this call, the return 
address for the most recent unfinished 
GOSUB has been discarded. I use a 
dummy GOSUB in line 1730, so it can 
be thrown away if there is an error. 
A normal BLOAD will result in line 
1790 RETURNING to line 1740 but the 
error routine ends with a GOTO 1740 
instead of a RETURN. Both the normal 
and the error exits from the BLOAD 
routine execute lines 1740 and 1750. 

Control of cursor motion can be ac- 
complished in at least two ways. I have 
used the paddles for cursor motion 
(lines 1000-3070), but I have seen 
perfectly good cursor motion controls 
implemented on a PET with just the 
standard keyboard. In this program I 
provide both coarse and fine motion 
control for two reasons. First, the 256 
possible values for the X-axis paddle (0) 
cannot be translated into 280 values for 
the screens X-axis without leaving out 
some points, whereas only 192 of the 
possible 256 Y-axis paddle (1) values 
are used. Second, it is easier to make 
fine position adjustments when the 
paddles are less sensitive and operate 
over a small section of the screen. 

The mode is controlled by the but- 
ton on paddle 0, which makes the pro- 
gram toggle back and forth between 
coarse and fine resolution every time it 
is pressed. The apparent center of the 
fine-tuning square is placed exactly 
where the coarse cursor was when the 
button was pressed, and different cur- 
sors are used for each mode so that the 
operator knows which mode he is using. 
The button on paddle 1 triggers an out- 
put subroutine that could send a value 
to disk or tape (but is displayed on the 
screen in this demonstration). 

There are no IF statements in the 
routines that draw and erase the cursor, 
and the only IF statements in the 
paddle-to-screen translation are for 
range checking. The coarse/fine 
switching is all accomplished by reset- 
ting variables for screen origin 
(XO,YO), scale factor (XM,YM), paddle 
shift (FT), and cursor shape (CU) (lines 
7000-7560). I have found this tech- 
nique of modifying variables to set flags 
and to pass parameters is much easier 
to write and debug than a maze of IF 
statements. It forces you to plan your 
program before you start writing, but 
the effort is repaid many times over. 

Whenever I plan to use high- 
resolution graphics, I first reset the 
Apple's memory pointers to protect the 



Listing 1 

10 GOTO 20000: REM MAIN PROGRAM (STRUCTURED PROGRAM HAS SUBROUTINES FIRS 
T) 



20 REM 


*************** 


30 REM 




40 REM 


DIGITIZER DEMO REV 1 


50 REM 




60 REM 


BY JAY C. SINNETT 


70 REM 


JUIY 8, 1981 


80 REM 


U.S. EPA ENVIRONMENTAL RESEARCH LABORATORY 


90 REM 


SOUTH FERRY ROAD 


100 REM NARRAGANSETT, RI 02882 


110 REM 




120 REM 


************** 


1000 REM 



1010 REM INITIALIZATION ROUTINE 

1020 REM 

1030 TEXT : HOME 

1040 CD$ = CHR$ (4): REM CONTROL-D 

1050 KA = 49152: REM KEYBOARD ADDRESS 

1060 BA = 43634: REM ADDRESS OF DOS POINTER TO BEADED FILE (48K APPLE) 

1070 PL =232: REM POINTER TO SHAPE TABLE USED BY APPLESOFT 

1080 SO ~ 49249 :S1 = 49250; REM ADDRESSES FOR GAME CONTROL BUTTONS 

1090 XO ■ 0:YO = 0: REM OFFSET (FLOATING ORIGIN) 

1100 XH = 279 :YH =191: REM HIGHEST VALUES FOR SCREEN X,Y 

1110 XF = 64:YF = 64: REM SCALE FACTOR FOR FINE MOTION 

1120 XM = Xi:YM = YH: REM MULTIPLIER (EITHER FULL SCREEN OR FINE MOTION) 

1130 PRINT "VHAT IS THE NAME OF YOUR CURSOR SHAPE TABLE "; 

1140 INPUT "{RETURN FOR BUGCURSOR)? ";FI$ 

1150 FI = 0:SF$ = "BUGCURSOR": IF LEN (FI$) < > THEN SF? = FI$:FI = 1 

1160 GOSUB 1700: REM SAFE BLOAD 

1170 IF ER THEN PRINT "SORRY, CAN'T FIND "SF$: PRINT CD$"CATALOG" : GOTO 

1130 
1180 POKE PL, PEEK (BA) : POKE PL + 1, PEEK (BA + 1): REM SET SHAPETABLE 

POINTER 
1190 CC ■ 2:CF = 3: IF NOT FI THEN 1220; REM DEFAULT IS BUGCURSOR SET 
1200 INPUT "VHICH CURSOR NUMBER DO YOU WANT TO USE FOR COARSE POSITION? 

"?CC 
1210 INPUT "WHICH CURSOR DO YOU WANT FOR FINE POSITIONING? ";CF 

1220 CU - CC: REM START WITH COARSE CURSOR 



1230 
1240 
1700 
1710 
1720 
1730 
1740 
1750 



HOME : SCALE= 1: ROT= 0: 
RETURN 



HGR 



BLOAD SF$ 
REM 

GOSUB 1760: REM DUMMY CALL FOR ERROR TRAP TO WORK 
POKE 216,0: REM TURN OFF ERROR PROCESSING 
RETURN : REM TO MAIN CALLING ROUTINE 

1760 ER = 0: REM ERROR FLAG RETURNED TO CALLING ROUTINE 

1770 ONERR GOTO 1800 

1780 PRINT CD$"BLOAD"SF$ 

1790 RETURN : REM SUCCESSFUL 

1800 REM 

1810 REM ERROR TRYING TO LOAD FILE 

1820 REM 

1830 ER = PEEK (222): REM ERROR CODE, IF YOU WANT 

1840 CALL 768: REM STRAIGHTEN OUT SUBROUTINE STACK, REMOVING ONE RETURN 
ADDRESS 

1850 GOTO 1740 

2000 REM 

2010 REM READ PADDLES, SCALE TO 1 

2020 REM 

2030 XP - PDL (0) / 255 

2040 FOR N = 1 TO 10: NEXT : REM DELAY FOR PDL CIRCUIT 

2050 YP = PDL (1) / 255 

3000 REM 

3010 REM TRANSLATE PDL VALUES 

3020 REM 

3030 X = XO + INT ( (XP - FT) * XM) : IF X < THEN X = 

3040 IF X > XH THEN X = XH 

3050 Y = YO + INT ( (YP - FT) * YM) : IF Y < THEN Y = 

3060 IF Y > YH THEN Y = YH 

3070 RETURN 

4000 REM 

4010 REM PLACE CURSOR ON SCREEN 

4020 REM 

4030 XS = XH - X: REM REVERSE LEFT/RIGHT 

4040 YS ■ YH - Y: REM ORIGIN AT BOTTOM OF SCREEN 

4050 HCOLOR= 3 

4060 DRAW CU AT XS.YS 

4070 XI = X;Y1 = Y: REM REMEMBER COORDINATES USED LAST 

4080 RETURN 

4500 REM 

4510 REM ERASE CURSOR FROM SCREEN 

4520 REM 

4530 HOOLOR** 

4540 DRAW CU AT (XH - XI) , (YH - Yl) 

4550 RETURN 

5000 REM 

5010 REM DISPLAY CURRENT CURSOR LOCATION 



(Continued) 
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Listing 1 (Continued) 




5020 REM 




5030 VTAB 22: PRIOT " 


": REM ERASE LAST 


EATA 




5040 VTAB 22: PRINT "X = "X" Y = "Y 




5050 RETWN 




6000 REM 




6010 REM READ BUTTONS (DEBOUNCING) 




6020 REM 




6030 PO = 0:F1 = 




6040 SA = PEEK (SO) > 127: REM 1 IF BUTTON DOWN 




6050 SB = PEEK (SI) > 127: REM BUTTON 1 




6060 IF SA AND NOT SQ THEN FO ■ 1 : REM FO IS FLAG FOR BUTTON BEING PR 


ESSED 




6070 IF SB AND NOT SR THEN Fl = 1 : REM FLAG FOR BUTTON 1 


6080 SQ = SA:SR = SB: REM REMEMBER PREVIOUS STATE 




6090 RETURN 




7000 REM 




i 7010 REM TOGGI£ SCALE FACTOR, ORIGIN 




7020 REM 




7030 IF XM = Xfl THEN 7500 




7040 REM ELSE HERE TO CHANGE FROM FINE TO COARSE 




7050 XO ■ 0:YO = 0: REM ORIGIN 




1 7060 XM = XH :YM = Yd : REM SCALE FACTOR 




7070 CU ■ CC: REM CURSOR TYPE 




7080 FT ■ 0: REM NO SHIFT OF PADDLE 




7090 GOTO 7560 REM END ELSE 




7500 REM HERE TO CHANGE FROM COARSE TO FINE MOTION 




7510 XO = X 




7520 YO = Y 




7530 XM = XF:YM = YF: REM SCALE 




7540 CU = CF: REM CURSOR 




7550 FT ■ .5: REM SHIFT PADDLES TO CENTERED PLUS/MINUS 


RANGE 


7560 RETURN 




8000 REM 




8010 REM OUTPUT ROUTINE. . .TO SCREEN FOR THIS DEMO 




8020 REM 




8030 VTAB 23: PRINT " 


": REM ERASE 1 


OLD POINT 




8040 VTAB 23: PRINT "LAST 'PLOTTED' POINT: X = "X" Y 


= "Y 


8050 RETURN 




9000 REM 




9010 REM CHECK KEYBOARD 




9020 REM 




9030 KF = PEEK (KA) > 127: REM TRUE IF A KEY HAS BEEN PRESSED 


9040 IF KF THEN GET KB$ : REM RETURN WITH IDENTITY OF 


KEY IN KB$ j 


9050 RETURN 




20000 REM 




20010 REM MAIN ROUTINE 




20020 REM 




20030 GOSUB 1000: REM INITIALIZE 




20040 GOSUB 2000: REM GET DESIRED COORDINATES 




20050 IF XI = X AND Yl = Y THEN GOTO 20110 




20060 REM IF COORDINATES HAVE CHANGED, ERASE OLD CURSOR AND PLACE NEW ON 


20070 GOSUB 4500: REM ERASE OLD CURSOR 




20080 GOSUB 4000: REM PLACE NEW CURSOR 




20090 GOSUB 5000: REM DISPLAY CURRENT LOCATION 




20100 REM END IF 




20110 GOSUB 6000: REM READ BUTTONS INTO FO, Fl 




20120 IF FO THEN GOSUB 4500: GOSUB 7000: GOSUB 4000: 


REM TOGGLE SCALE F 


ACTOR 




20130 IF Fl THEN GOSUB 8000: REM 'OUTPUT' A DATA POINT 


20140 GOSUB 9000: REM CHECK KEYBOARD 




20150 IF KF THEN END : REM FOR THIS DEMO 




20160 GOTO 20040 




Listing 2 800.832 




0800- 03 00 03 00 IF 00 50 


00 


0808- 24 24 24 34 92 D2 3F 


3F 


0810- 3F 4D 49 09 2D 2D 2D 


DF 


0818- DB 13 36 36 16 24 00 


DB 


0820- 3F 3F 24 64 OD 18 OC 


OD 


0828- 18 2D 35 36 26 08 18 


08 


0830- 2D OE OE OE OE 36 FE 


IB 


0838- 2D AD 36 IE IE IE IE 


3F I 


0840- 27 24 B4 D2 3F OF 18 


OF 


0848- 18 OF 18 OF 18 24 04 


00 


0850- IB 3F 3F 6F 20 64 OD 


18 


0858- 2D 25 30 16 36 OG 18 


08 


0860- 2D OE OE 36 FE 2B 6D 


FD 


0868- 8B 36 CE F3 IE 38 OF 


18 


0870- 08 18 36 36 26 C8 3B 


OF 


0878-18 OF 18 OF 98 51 E2 


1G 


0880- 24 04 00 
i * 





entire space from $800 to the top of 
page one high-resolution graphics at 
$4000. This leaves about 20K of con- 
tiguous program space and 6K of 
shapefile space available. The follow- 
ing series of POKEs should be used to 
accomplish this: 

POKE 103,1 
POKE 104,64 
POKE 16384,0 

The shape table used by this pro- 
gram is shown in monitor format 
(listing 2), occupying locations 
$800-$ 8 82. It actually has three cursors 
available: a crosshair and two different 
circle/ crosshair combinations. The 
DIGITIZER DEMO program assumes 
that it is stored on disk under the name 
BUGCURSOR. If you use it as shown, 
you must reset the memory pointers 
before running DIGITIZER DEMO, or 
the program will be destroyed when the 
shapefile is loaded. 

The hardware and software I have 
described here were originally 
developed for a government research 
project, but they should be useful for a 
great many other applications. Your 
output routine might simply connect 
points as you enter them, making a line 
drawing, or you might want to save 
points in a shapefile or in a disk data 
file. All sorts of graphics programming 
should be easier and more fun with this 
affordable digitizer. 

References 

1. Mention of commercial products 
does not imply endorsement by the 
U.S. Environmental Protection 
Agency. 

2. The DOS Manual, Apple Computer, 
Inc., Cupertino, CA 95014, 1980. 
Page 144 (DOS Entry Points). 

3. Basic Programming Reference 
Manual, Apple Computer, Inc., 
Cupertino, CA 95014, 1978. Page 
136 (Machine-Language program to 
clear up ONERR GOTO problem). 
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ARK COMPUTING 



LOWERS THE BOOM 
ON HIGH PRICES 



SPECIALS 



GAMES 



16K Ram Board $79,95 

80 Column Board (Wiz-80) $195.00 

Parallel Printer Interface (w/cabie) $59.95 

(compatible with Pascal, Basic, CP/M) 

Z-80 Softcard $259.95 

Joyport $59.95 

ARK Special $295.00 
(includes Wiz-80, Lazer Keyboard Plus, Lazer 

Lower Case Plus) 

On-Line Systems: General Manager $99.95 

Diskettes w/hubring (1 0) $1 9.95 

Hi-Res Secrets $84.95 

Expediter II $59.95 

The Dictionary $69.95 

Microsoft 16K Ram Card $99.95 

Time Zone $69.95 

Lazer Keyboard Plus $69.95 

Lazer Lower Case Plus $44.95 

Lazer Lower Case Plus II $19.95 

Anix 1.0 $34.95 

Lazer Pascal $29.95 
Anix-Pac 

(Anix, Pascal, Sources) $99.95 
Using 6502 

Assembly Language $14.95 

Datamost Joystick $39.95 

Datamost Expandaport $49.95 



HARDWARE 



BUSINESS SOFTWARE 



12" hires green display 
t 2" lores color display 
12"h!-res RGB colordisplay 
Apple Cat II 

Apple Clock 

Supertalker SD2000 

Romplus 

Romwriter 

Music System 

A/D+D/A 

Expansion Chassis (1 ?5v) 

CPS Multifunction Card 

RAM Plus i- (32 RAM board 
W/16K installed) 

COPYROM 

Keyboard Filter ROM 

1 3 Key Keypad (new or old) 

Bar code reader 

Softkey (l 5-key user-defin ) 

Asynchronous Serial 
Datamost Joystick 
Datamost Expandaport 
Micromodem 
Smartmodem (RS-232) 
LowerCase 4-(Rv6& earlier) 
Lower Case -+■ II [Rv. 7 & Llr) 
LowerCase-HH |Rv,7&Llf.) 
Keyboard #Plus 
Character Set4 Plus 
Sup. -R' Term 80-col. board 
Sup 'R'Switcherlpwr.suppU 
A35 35-track disk drive w/o 

controller 
A35 35-track disk drive w/ 

A40 40-irack disk drive w/o 
controller 

A40 40-track disk drive w/ 

A70 70-track disk drive w/o 



$285.00/5159.95 
$430.00/5349.95 
$1095.00/5895.95 
$389 00/5329. 00 
3.2ti0.uU/S19;>.*& 
$199.00/51 49.95 
S1 55.00/51 24.95 
$175.00/5139 95 
$395.00/8295.95 
$350.00/5249.95 
$750.00/$495.OO 
$239 00/5149.95 
$1 89. 00/$1 39.95 

$55.007844.05 

$55,007*44.95 

$125.00/594.95 

$195.00/5145.95 

$150.00/5119.95 

S1 79,95/51 29.95 

$59.95/539.95 

$6995/549.95 

$379 00/5269.00 

$279.00/5199.00 

$64.95/544.95 

$2 4 95/514.95 

$49 95/534.95 

$99 95/569.95 

$24 95/519.95 

$395 00/5295.00 

$295.00/5195.00 

$479.00/5379.00 

$579.00/5449.00 

$449 00/5359. OO 

$549.00/5449.00 

$599.00/5499.00 

$699.00/5599.00 



Mail Label & Filing System 

General Ledger(w/payables) 

Home Money Minder 

The Mad Room 

CPA I General Ledger 

CPA II Accounts Receivable 

CPA III Accounts Payable 

CPA IV Payroll 

CPA V Property Manage. 

The Home Accountant 

Word Star 

Supersort 

Mail Merger 

Data Star 

Spellstar 

Calc star 

Visicalc 3 3 

PFS (Personal Filing Syslem) 

PES. Report 

The Correspondent 

Mailing List Database 

Higher Text II 

Directory Manager v. 2 

Real Estale Analysis Pgm 

PIE WRITER 

Easy Mover 40-column 

Easy Mailer 40-column 

Easy Writer 40-column 

Pro Easy Mailer 

Pro Easy Writer 

Superscribe II 



$74.95/549.95 
$395.00/5295.00 
$495 00/5395.00 

$3495/524.95 

$34.95/524.95 

$249 95/5169.95 

$249.95/5169.95 

$249 95/5169.95 

$249.95/5169.95 

$249.95/5169.95 

$74.95/554.95 

$375.00/5195.00 

$200.00/124.95 

$125 00/579.95 

$300 00/5195.00 

$200.00/5124.95 

$200.00/5124.95 

$250.00/5179.95 

$1 25.QCVSBfl.95 

$95 00/569.95 

$59.95/549.95 

$49 95/539.95 

$39 95/529.95 

$29.95/521.95 

30% OFF 

(call for details) 

$49.95/539.95 

$69.96/549.95 

$99.95/574.95 

$175.00/5124.95 

$249.95/179.95 

$129.95/579.95 



Softporn Adventure (no graphics) 

#0 Mission Asteroids 

#1 Mystery House 

#2 Wizard & Princess 

#3 Cranston Manor 

#4 Uiyesses & the Golden 

Fleece 
#5 Time Zone 
Hi-res Cribbage 
Hi-res Soccer 
Hi-res football 
Sabotage 
Jawbreaker 
Threshold 
Missle Defense 
Crossfire 
Pegasus 
Warp Destroyer 
Star Cruster 
Adventure 
Both Barrels 
Cyber Strike 
Phantoms Five 
Space Eggs 
Autobahn 
Pulsar II 
Orbitron 

Gamma Goblins 
Gorgon 
Sneakers 
EPOCH 

Cops & Robbers 
Outpost 
Dark Forest 
Beer Run 
Borg 

Joy Port w/foosbal 
Hadron 
Twerps 

Computer Foosbal 
Wizardry 
Galactic Attack 

Oylmpic Decathlon 

Three Mile Island 

ABM 

Robot Wars 

Global War 

Castle Wollenstein 

Falcons 

Suicide 

Grand Prix 

The Best ot Muse 

Flight Simulator 

Dungeon Campaign 

Odyssey 

Escape From Arcturus 

Palace in Thunderland 

MAD Venture 

Roach Motel 

English SAT #1 

U.S. Constitution 



$29.95/519.95 
$19.95/514.95 
$24.95/516.95 
$32.95/519.95 

$34.95/524.95 
$34.95/524.95 

$99.95/569.95 
$24.95/519.95 
$29.95/519.95 
$39.95/529.95 
$24.95/519.95 
$29.95/51 9.95. 
$39.95/524.95 
$29.95/519.95 
$29.95/519.95 
$29.95/519.95 
$29.95/521.95 
$24 95/519.95 
$29.95/521.95 
$24.95/519.95 
$39.95/529.95 
$29 95/521.95 
$29.95/519.95 
$29.95/521.95 
$29.95/521.95 
$29.95/521.95 
$29.95/519.95 
$39.95/529.95 
$29.95/519.95 
$3495/524.95 
$34.95/524.95 
$29.95519.95 
$29.95/519.95 
$29.95/519.95 
$29 95/519.95 
$74.95/559.95 
$34.95/524.95 
$29.95/519.95 
$29.95/519.95 
$49.95/539.95 
$29.95/521.95 
$34.95/524.95 
$29.95/521.95 
$39.95/529.95 
$24 95/519.95 
$39.95/529.95 
$24.95/519.95 
$29.95/521.95 
$29.95/521.95 
$29.95/521.95 
$29.95/521 .95 
$39.95/.$29.95 
$33.50/526.95 
$17.50/514.95 
$29.95/521.95 
$24.95/519.95 
$24.95/519.95 
$24.95/519.95 
$34.95/526.95 
$29.95/521.95 
$29 95/521.95 



UTILITIES 



Hi-Res Secrets (0. Fudge) 

Super Shape Drg & Animate 

The Creative Tool Box 

Applesoft Compiler 

Datadex 

Using 6502 Assembly Lang. 

ANIX (UNIX-like Oper. sys.) 

Lazer Pascal 

DOSOURCE 3.3 

Painter Power 

The Voice 

E-Z Draw 

Pascal Graphics Editor 

ACE 

Apple-DOC 

Lisl'Master 

ASCII Express 

Z-Term (req's Z-80 Card) 

Z-Term Pro 

Speed Star 

On-Line 

DB Master 



S124.B5/S84.95 

$34.95/524.95 
$44.95/534.95 
$175 00/129.95 
$150 00/599.95 
$19.95/514.95 
$4995/539-95 
$39.95/529.95 
$39.95/524.95 
$3995/529.95 
$39.95/529.95 
$4995/539.95 
$99.95/569.95 
$39.95/529.95 
$49.95/539.95 
$39.95/529.95 
$79.95/559.95 
$99.95/569.95 
$149.95/599.95 
$134.95/599.95 
$89.95/569.95 
$229.00/5159.95 



Upper Reaches oi Apshai 

The Keys to Acheron 

Datestones of Ryn 

Morloc's Tower 

Ricochet 

Starfleet Orion 

Invasion Orion 

The Dragons Eye 

Tues. Morning Quarterback 

Jabbertalky 

Sorcerer of Siva 

Rescue at Rigel 

Crush, Crumble, and Chomp 

Temple of Apshai 

Hellfire Warrior 

Star Warrior 

Hi-res got) 

Race for Midnight 

Midnight Music 

Star Blazer 

Apple Panic 

Space Quark 

Red Alert 

Track Attack 

Genetic Drift 

Arcade Machine 

Raster Blaster 

Trilogy of Games 

Space Album 

Fender Bender 

3-D Graphics 

Akalabeth 

Appleoids 

Ulitma 

LA Land Monopoly 

Hyperspace Wars 

3-D Skiing 

Torpedo Terror 

Computer Bingo 

Kaves Karkhan 

Dragon Fire 

Rings of Saturn 

Alkemstone 

Snack Attack 

Casino 

Thief 

County Fair 

Swashbuckler 

Firebird 

Russki Duck 

Horizon V 

Sargon II 

Reversal 

Zork 

Zork II 

Pool 1 .5 

Shutfleboard 

Trick Shot 

Crossword Magic 

Master Type (hi-res) 

Dog Fight 

Crown of Arthain 



$19.95/515.95 
$19 95/515.95 
$19.95/515.95 
$19.95/515.95 
$19.95/515.95 

$24.95/19.95 
$24.95/519.95 
$24.95/519,95 
$29.95/521 .95 

$29.95/21 .95 
$29.95/521.95 
$29.95/521.95 
$29.95/521.85 
$39.95/529.95 
$39.95/529.05 
$39.95/529.95 
$29.95/521-95 
$29.95/521 .95 
$34.95/524.95 
$31.95/524.95 
$29.95/519.95 
$29.95/519.95 
$29.95/519.95 
$29.95/519.95 
$29.95/519.95 
$44.95/529.95 
$29.95/521.95 
$29.95/521.95 
$39.95/829.95 
$24.95/819.95 
$39.95/829.05 
$34.95/824.95 
$29.95/821 .05 
$39.95/829.05 
$29.95/821.95 
$29.95/821.95 
$24 95/810.95 
$24 95/819.05 
$24 95/819.05 
$49.95/834.05 
$49.95/834.95 
$39.95/820.05 
$39.95/829.95 
$29.95/819.95 
$39.95/824.85 
$29.95/519.05 
$29.95/519.95 
$34.95/524.95 
$29 95/519.05 
$34.95/525.95 
$34.95/525.05 
$34.95/525.95 
$34.95/525.95 

$39.95/820.05 
$34.95/824.95 
$29.95/821.95 
$39.95/820.95 
$49.95/839.95 
$39.95/829.95 
$29 95/821.05 
$34.95/826.95 



UTILITIES 



LISA v2.5 

LISA Educational Pack 
Speed/ASM 
Expediter II 
Disk Organizer II 
Applesoft Plus 
Appiesolt Optimizer 
Disk Recovery 
Multi-disk Catalog 
Back it up 
Image Printer 

Dos Plus 

The Original Quick Loads 
Typing Tutor 
Fortran 
A.L.D.S, 

Basic Compiler 
Cobol 
TASC 
_Data Plot 
DB Utility Pack 



$79.95/859.95 
$1 1 9.95/879.95 
$39.95/829.95 
$99.95/859.95 
$29.95/521.95 
$24.95/819.95 
$24.95/519.95 
$29 95/521.95 
$24.95/519.95 
$59.95/539.95 
$29.95/529.95 
$24.95/519.95 
$24.95/519.95 
$24 95/519.95 
$24.95/519.95 
$195 00/5130.95 
$1 25.00/589.95 
$395.00/5295.00 
$750.00/5495.00 
$175 00/5129.95 
$59.95/544.95 
$99.00/569.95 



we accept: MASTERCARD, VISA (Include carrj * and expiration date), CASHIER or CERTIFIED CHECKS, MONEY ORDlhS, or PERSONAL CHECKS (Please allow 10 

days to clear) 

Please add 3% for shipping & handling (minimum $2.00). Foreign orders please add 10% for'shipping & handling. 

We accept COD's (Please Include $2.00 COD charge). California residents add 6% sales tax. All equipment Is subject to price change and availability without notice. All 

equipment is new & complete with manufacturer's warranty. 



Apple 



a regis 1 



d trademark of APPLE COMPUTER INC. 



YOUR SALVATION IN THE SEA OF INFLATION 

ARK COMPUTING 



P.O. BOX 2025 

CORONA, CALIFORNIA 91 720 

(714) 735-2250 



I APPLICATIONS 



AIM Logic Trainer 



by Larry Kollar 



Test your logic circuits with this 
program. It allows you to control 
the inputs and send the outputs 
to LEDs or printer. 


Table 1: Logic Trainer Commands 

Command Function 

' 1 ' . . ' 8 ' Toggle switches 1 through 8 . 
(space) Single-step. 
'A' Auto- step. 


Logic Trainer 

requires: 

AIM 65 

and your logic circuit 

Information is provided to aid 

conversion for other 6502 

computers 


Table 2; Delay Routine 

Address Initial Value Effects of Change 

$02B9 $00 To $80 will cut the delay by half 

(approximately 3/8 second), larger 
values will cut it more. 

$02BB $71 For these locations, increasing the 

values will lengthen the delay. 

$02C0 0B $02BB is a "fine tune" value; 
i $02C0 is more critical. 


In the course of a hardware project, 
sooner or later you need to test it. If 
your breadboard comes with a power 
supply, debounced switches, and lights, 
it's simple enough. 

However, most of us have to de- 
bounce switches and put limiting 
resistors in series with our LEDs. If 
your project uses several IC packages, 
you may not have room to add the 
necessary circuitry. 

Listing 1 is the assembly language 
program of my computerized circuit 
tester. Just attach some wires to a 
44-pin connector (see table 4 for con- 
nections), plug the connector onto Jl 
and attach the circuit. (Do this with 
the AIM turned off. ) Turn on the com- 
puter, load the program, and start it at 
$0200. The display shows eight switches 
(all initially OFF) as 'l'=ON, '0' = 
OFF. Eight outputs (lights) are repre- 
sented by '*'= ACTIVE, '-^INAC- 
TIVE. (See listing 2.) 

Now you can toggle any switch by 
hitting T through '8' on the AIM 
keyboard. '1' toggles the leftmost 
switch, '8' toggles the one on the far 
right. Hitting any switch twice in a row 
will return it to its original state. The 
following procedure enables you to add 
features that you probably couldn't find 
on any hardware laboratory trainer. 


Table 3: I/O Routines and VIA 

Name Function 

CRLF Output Carriage Return and Line Feed to the Display/ Printer. 

DEI Delay subroutine. 

OUTPUT Send the ASCII character in the accumulator to the Display/ 
Printer. 

READ Get an ASCII character from the keyboard to the accumulator. 

ORB VIA Port B (lights). 

ORA VIA Port A (switches). 

DDRB VIA Port B data direction register. 

DDRA VIA Port A data direction register. 

ACR VIA Auxiliary Control Register. 

PCR VIA Peripheral Control Register. 
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I APPLICATIONS I 



Listing 1 


j* LOGIC TRAINER PROGRAM 
.* 

;* BY LARRY KDIiAR 
.* 




• Listing 1 (Continued) 








0273 AD 00 AO LDA PORTB 


;NOW GOT. THE LIGHTS 






l 0276 A2 08 LDX #$08 


7 AND TREAT THEN THE 








0278 2A LTTES ROL A 


; SAME WAY AS SWITCHES 




rEXTERNAL REFERENCES: 




0279 48 PHA 
027A A9 2D LDA '- 


7 EXCEPT OFF='-' 




READ EQO $E93C 
OUTPUT EQU $E97A 
CRLF EQU $E9F0 
TIMER EQU $EC18 
PORTB EQU $A000 




027C 90 02 BCC *+4 
027E A9 2A LDA '* 
0280 20 7A E9 JSR OUTPUT 

0283 68 PLA 

0284 CA DEX 

0285 DO Fl BNE LITES 


7 AND ON='*' 




PORTA EQU $A001 




0287 60 RTS 






DDRB EQU $A002 




0288 ; 

0288 ; AUTO-STEP SWITCHES: 






DDRA EQU $A003 








T2L EQU $A008 




0288 ; 






T2EI EQU $A009 




0288 A2 00 AUTO LDX #$00 


fASK FOR NO. OF SWITCHES 




ACR EQU $AOOB 




028A 20 FO E9 JSR CRLF 






PCR EQU $A0OC 




028D BD 01 00 PRMSG LDA MSG,X 






PRIFLG EQU $A411 




0290 20 7A E9 JSR OUTPUT 






ORG $200 




0293 E8 INX 






OBJ $800 




0294 EO 12 CPX #$12 
0296 DO F5 BNE PRMSG 






rlNITIAIiIZE AND GET INSTRUCTION 


0298 20 3C E9 CNVRT JSR READ 


•GET ANSWER 








Q29B 38 SEC 


MAKE ASCII INTO VAL 


0200 20 3B 02 


JSR LNIT 


r INITIALIZE VIA 


029C E9 30 SBC #$30 




0203 20 4C 02 


RSTRT JSR RESET 


jDHTIALIZE SWITCHES 


029E 30 F8 BMI CNVRT 




0206 20 52 02 


START JSR STATE 


; DISPLAY LOGIC STATES 


02A0 C9 09 CMP #$09 
02A2 10 F4 BPL CNVRT 




0209 20 3C E9 


GTCMD JSR READ 


; AND GET A COMMAND 




020C C9 20 


CMP #$20 


; SPACE? (FOR 1-STEP) 


02A4 AA TAX 


AND TREAT AS BEFORE, : 


020E FO 25 
0210 C9 41 


BBQ STEPl 
CMP 'A 


rELSE 'A 1 ? (AUTOSTEP) 


02A5 A9 00 LDA #$00 
02A7 38 FCNT SEC 


WITH TOGGLE 


0212 FO 74 
0214 
0214 
1 0214 

0214 38 

0215 E9 30 
0217 30 FO 
0219 C9 09 
021B 10 EC 


BEQ AUTO 




02A8 2A rol a 




; TOGGLE SWITCHES 1-8: 




02A9 CA DEX 
02AA DO FB BNE FCNT 




TOQGL SEC 

SBC #$30 

BMI GTCMD 
CMP #$09 
BPL GTCMD 


;OR TEST FOR TOGGLE 
j ASCII CHAR TO VALUE 
; <1? THEN TRY AGAIN 

rALSO, IF >9 TRY AGAIN 


02AC AA TAX 
02AD A9 00 LDA #$00 
02AF 8D 01 AO STA PORTA 
02B2 8A STEP TXA 
02B3 48 PHA 


USE X FOR COMPARES 
INITIALLY ALL 

SWITCHES ARE OFF 
SAVE X 


021D 85 00 


STA $00 


;NOW TURN IT AROUND 


02B4 20 52 02 JSR STATE 


DISPLAY STATES 


021F A9 09 


LDA #$09 


; SO THAT ' 1 ' REFERS 


02B7 68 PIA 


AND GET X BACK 


0221 38 


SEC 


r TO THE LEFTMOST ONE 


02B8 AA TAX 




0222 E5 00 


SBC $00 




02B9 AD 11 A4 LDA PRIFLG 


SEE IF PRINTER IS ON 


0224 AA 


TAX 


rUSE THIS FOR COUNTER 


02BC 2A ROL A 


AND SKIP DELAY IF SO 


0225 A9 00 


LEA #?00 




02BD BO 12 BCS DONE 




0227 38 


SEC 


;PUT A BIT IN 


02BF AO 00 LDY #$00 


3/4 SECOND DELAY 


0228 2A 


0UT1 ROL A 


r AND FIND OUT W3ERE 


02C1 A9 71 DELAY LDA #$71 




0229 CA 


DEX 


; IT GOES 


02C3 8D 08 AO STA T2L 




022A DO FC 


BNE 0UT1 




02C6 A9 OB LDA #$0B 




022C 4D 01 AO 


EOR PORTA 


7 TOGGLE THAT BIT 


02C8 8D 09 AO STA T2H 




022F 8D 01 AO 


STA PORTA 


7 AND PUP IT IN 


02CB 20 18 EC JSR TIMER 




0232 4C 06 02 


JMP START 


; AND GO BACK FOR MORE 


02CE C8 INY 




0235 






02CF DO FO BNE DELAY 




0235 


; SINGLE-STEP SWITCHES 




02D1 EC 01 AO DONE CPX PORTA 


DONE INCREMENTING? 


0235 






02D4 FO 06 BEQ TOTOP 


IF SO, BACK TO TOP 


0235 EE 01 AO 


STEPl INC PORTA 




02D6 EE 01 AO INC PORTA 


OTHERWISE STEP ONE 


0238 4C 06 02 


JMP START 




02D9 4C B2 02 JMP STEP 


AND DISPLAY & DELAY 


023B 






02DC 4C 03 02 TOTOP JMP RSTRT 




023B 


; INITIALIZE VIA 




02DF ; 




023B 






02DF ; 




023B A9 FF 


INTT LDA #$FF 




0001 ORG $1 




023D 8D 03 AO 


STA DDRA 


rPORT A^SWITCHES 


0001 OBJ $800 




0240 A9 00 


lift #$00 




0001 • 




I 0242 8D 02 AO 


STA DDRB 


rPORT B=LKHTS 


0001 48 4F 57 MSG ASC 'HOW MANY SWITCHES? ' 


0245 8D OB AO 


STA ACR 


7 JUST MAKE SURE THESE 


0004 20 4D 41 




0248 3D OC AO 


STA PCR 


;DON'T DO ANYTHING 


0007 4E 59 20 




1 024B 60 


RTS 


; AND GO BACK 


000A 53 57 49 




024C 






OOOD 54 43 48 




024C 
■ 024C 

024C A9 00 
024E 8D 01 AO 


;RESET ALL SWITCHES 




0010 45 53 3F 




RESET LDA #$00 
STA PORTA 




Listing 2: Sample Output of the Logic Trainer Program 


0251 60 


RTS 








0252 






HOW MANY SWITCHES? 




0252 


* UPDATE SWITCH/LKHTS 




00000000 




0252 






00000001 


* 


0252 20 FO E9 


STATE JSR CRLF 


; CLEAR DISPLAY 


00000010 




0255 AD 01 AO 


LDA PORTA 


;GET THE SWITCHES 




0258 A2 08 


LDX #$08 


;LOOP FOR SWITCHES 


00000011 


*_ 


025A 2A 


SWOUT ROL A 


?MOVE IT INTO CARRY 


00000100 


* 


025B 48 
025C A9 30 


EHA 

IDA '0 


;SAVE A ! 
; ASSUME SWITCH=OFF 


00000101 


*_ 


025E 90 02 


BCC *+4 


rIF CARRY, WE'RE WRONG 


00000110 


*_ | 


0260 A9 31 


LDA '1 


;SO LOAD WITH '1' 


00000111 


* * 


0262 20 7A E9 

0265 68 

0266 CA 


JSR OUTPUT 


r AND PRINT THAT 


The circuit being checked is an addei with carry-in capabili- 


PIA 

DEX 


;GET A BACK 

; AND KEEP GOING 


ty. The inputs [C if X, Y) are displayed by switches 6, 7 ', and 


0267 DO Fl 


BNE SWOUT 


; UNTIL ALL 8 ARE OUT 


8 respectively. The outputs (C , Z) are displayed by lights 7 


0269 A2 04 


LDX #$04 


;PUT IN 4 SPACES 


and 8. 




026B A9 20 


LDA #$20 


; BETWEEN SWITCHES AND 




026D 20 7A E9 

0270 CA 

0271 DO FA 


SPACE JSR OUTPUT 
DEX 
BNE SPACE 


7 THE LIGHTS 


The user has turned on the printer, chosen the Auto- step 




command, and asked for three switches 
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To single-step the switches, hit the 
space bar. Switch # 8 will toggle the 
fastest. To automatically step through 
any number of switches, type 'A' for 
auto-step. You will get the message: 



HOW MANY SWITCHES? 



Type a number between 1 and 8 
(anything else is ignored) . The switches 
are all reset to '0' and the program puts 
your circuit through its paces. 

There is a Va -second delay between 
steps, which can be changed according 
to the instructions in table 2. If the 
printer is turned on, the delay will be 
skipped. You can use the printer to 
generate a truth table (see listing 2 for a 
sample printout) . 

If you have a different 6502-based 
system, see table 3 for a list of system 
references. Any 6502 system can run 
this program if it has a VIA and at least 
20 columns to display. 



Table 4: Application Connector (J1) 


Wiring 






Pin 


Name 


Function 


A-l 


Ground 




A-2 


PA3 


Switch 5 


A-3 


PA2 


Switch 6 


A-4 


PA1 


Switch 7 


A-5 


PA4 


Switch 4 


A-6 


PAS 


Switch 3 


A-7 


PA6 


Switch 2 


A-8 


PA7 


Switch 1 


A-9 


PBO 


Light 8 


A-10 


PB1 


Light 7 


A-ll 


PB2 


Light 6 


A-12 


PB3 


Light 5 | 


A-13 


PB4 


Light 4 


A- 14 


PAO 


Switch 8 


A-15 


PB7 


Light 1 


A-16 


PBS 


Light 3 


A-17 


PB6 


Light 2 


A-A 


+ 5V 





My power supply is not the AIM 
standard and I know I have enough ex- 
tra current to supply the circuits being 
tested. But if your supply is running 
very near its capacity, the milliamps 
might make a difference. An extra .5 
amps should be plenty for most 
applications. 



If you hit an invalid key, the pro- 
gram ignores it. However, the burden 
of getting the wiring right is entirely on 
the user. Don't short out the VIA! If 
you are careful, this program could be a 
useful tool for hardware development. 



Larry Kollar is a senior at Michigan 
Technological University, majoring in 
Technical Communications with an 
option in Computer Science. Upon 
graduating in May of 1982, he plans to 
write and revise software manuals. 
Contact Mr. Kollar at 5500 Greenboro SE, 
Kentwood, MI 49508. 

JMCftO 
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Perry PerjpIieraIs Repairs KIMs!! 

(SYMs ANd AIMs Too) 

• We will Diagnose, Repair, and Completely Test your Single Board Computer 

• We Socket all replaced Integrated Circuits 

• You receive a 30-day Parts and Labor Warranty 

• Labor is $38.00 if 40-pin ICs are socketed ($40.00 otherwise) — Parts Extra 

• Your repaired S.B.C. returned via U.P.S. — C.O.D., Cash 

Don't delay! Send us your S.B.C. for repair today 
Ship To: (Preferably via U.P.S.) 

Perry PeripIieraLs 

6 Brookhaven Drive 
Rocky Point, NY 11778 

Perry Peripherals carries a full line of the acclaimed HDE expansion components for your KIM, SYM, and 
AIM including RAM boards, Disk Systems and Software like HDE Disk BASIC V1. 1. Yes, we also have 
diskettes. For more information, write to: P.O. Box 924, Miller Place, NY 11764 or Phone (516) 744-6462. 
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Commodore 
computers Bloom 
with CP/M® and 
Multi-user 

Capability. 



COMMODORE 

a &lermJ P - /M ^arkPtn, neea to 



Now your commodore can blossom into a full-blown 

CP/M-based or multi-user business system with the 

addition of 1 or 2 innovative peripherals. SOFTBOX 

alone gives you complete CP/M capability. 

HARDBOX interfaces to the Corvus Winchester disk 

drive, and multiplexing units, for high storage 

capacity and multi-user capability. ,■«•«-■«# -*» . «»*-**- fM-*% nn ^*- 

HARDBOX FOR LARGE STORAGE 



RUN CP/M WITH SOFTBOX 

Add SOFTBOX. The Z80-based computer which 
connects to your commodore pet or cbm 
through the IEEE bus. 

Now you have the ability to run any CP/M 
software or application, giving you a universe of 
computing capabilities you could only wish for 
until now. 

Simply by plugging the SMALL SYSTEMS SOFT- 
BOX into your Commodore Computer's ieee-488 
port and loading the CP/M disk, your computer 
will run under the world's most popular disk 
operating system. No internal connections or 
modifications to your computer are necessary. 

Applications packages designed to work with 
specific terminals (like Lear Siegler ADM3A, 
Televideo 912 or Hazeltine 1500) need no 
modification to work with your computer's 
screen, since the SOFTBOX allows your computer 
to emulate any of these devices. 

interfaces that come with your SOFTBOX let 
you add Corvus hard disk, with capabilities to 80 
MBytes of storage. You can run a printer, and 
even to talk to another CP/M based system. 

Available for immediate shipment. 90-day War- 
ranty. Sugested retail $895 

Call or write for our free CP/M Software Catalog. 




SMALL SYSTEMS ENGINEERING 

222 B View St. 
Mountain View, California 94041 

(415)964-8201 

CP/M is a registered trademark of Digital Research, 
© 1982 Small Systems Engineering, Inc. 



& MULTI-USER CAPABILITY 

The HardBox introduces your pet software to 
the world of high-capacity, high speed disk 
storage. It acts as an intelligent controller for up to 
four corvus Winchester disk drives. Each Corvus 
drive can have a capacity of 6, 10 or 20 million 
bytes. 

The HardBox is designed to be software- 
compatible with PET DOS version 1 or 2, so that it 
will work with existing programs. The HardBox is 
designed to appear to the PET as a fast, high- 
capacity floppy disk unit. 

When used with the Corvus range of drives, 
the HardBox provides much more than just a hard 
disk interface. By using an 8-way multiplexing unit, 
up to eight PET users, each equipped with a Hard- 
Box, may simultaneously address the same hard 
disk. By using two levels of multiplexing, up to 64 
users may be accommodated. The hard disk may 
be divided logically into user areas. 

A comprehensive set of utility programs are 
provided with the hardbox for file transfer, hard 
disk configuration, mirror backup, system 
maintenance etc. 

Available for immediate shipment. 90 day War- 
ranty. Suggested retail $695. 
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NEW LOW PRICE 

DIRECT FROM MANUFACTURER 

SI 20.00 



VWM 



§s 



.•«*vKLt;»»t 
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16K RAM EXPANSION BOARD 
FOR THE APPLE II* SI 20.00 



The Andromeda 16K RAM Expansion Board 
allows your Apple to use RAM memory in place 
of the BASIC Language ROMs giving you up 
to 64K of programmable memory.. Separate 
Applesoft* or Integer BASIC ROM cards sre no 
longer needed. The 16K RAM Expansion Board 
works with the Microsoft Z-80 card, Visicalc, 
DOS 3-3, Pascal, Fortran, P\\ot, and other 
software. A switch on the card selects either 
the RAM language or the mainboard ROMs 
when you reset your Apple. 

The Andromeda 16K RAM Expansion 
Board has a proven record for reliability with 
thousands of satisfied customers. 



Now with One Year Warranty. 

/UDQOMEDA 

n 



INCORPORATED 

Greensboro, NC. 27410 
919 852-1482 P.O. Box 19144 

Price for Andromeda J6K RAM 
expansion board now only $]20.00. 
Please add $5 for shipping and 
handling. North Carolina residents 
add 4% sales tax. 
^DEALER INQUIRIES WELCOME. 



MMWt 
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APPLICATIONS! 



A Versatile Disk Label Printer 



by David Allen 



This disk label print program 
includes provisions for one- and 
two-sided disks, generating a 
different type of label for each. 

Disk Label Print Program 

requires: 

Apple II or Apple II Plus 
Applesoft BASIC 
Written for MX-80, but can be 
adapted to others. 

I recently discovered that I had ac- 
quired a fairly large number of diskettes 
with a miscellaneous hodge-podge of 
programs on them. I finally bit the 
bullet and spent several hours re- 
arranging them by category on dedi- 
cated diskettes. After all this work, I 
was totally dissatisfied with my disk- 
ette labelling system. I found I had a 
completely uncoordinated label system, 
with differing sizes, locations, pen col- 
ors, and unreliable information about 
the contents. So, I decided to create a 
utility program for printing diskette 
labels. This program is the result. 

Two Kinds of Labels 

I know that there are reasons not to 
record on the back side of a single-sided 
diskette; I do it anyway. But it was in- 
convenient to have labels on both sides 
of the diskette. I needed one label on 
the front to identify the contents of 
both front and back. For those less fre- 
quent occasions when I leave the back 
vacant, I can use the full space of the 
label for just the information for that 
side. As a result, the program has two 
distinctly different formats for printing 
the labels. 

Screen Format of Input 

To avoid printing lines too long for the 
format, I had the program print a video 
screen format so I could stay inside the 
lines. A degree of self-centering can be 
automatically developed. 



15 REM 

FOR USE WITH KONZEN'S 
PROGRAM LINE EDITOR LOADED FIRST 
SO THAT UPPER/ LOWER CASE MAY BE 
USED. OTHERWISE CHANGE LINES 
3040 AND 3050 TO ELIMINATE THE 
1 & ' COMMAND 



20 TEXT : HOME : VTAB 10 

30 N$ = "APPLE-DISK LABEL PRINTER": GOSUB 1000 

40 N$ = "FOR 1 7/16 INCH BY 4 INCH LABELS": GOSUB 1000 

50 N$ = "BY DAVID P. ALLEN": GOSUB 1000 

60 N$ = "OCTOBER 7, 1981": GOSUB 1000 

70 FOR X = 1 TO 1000: NEXT 

80 POKE - 16368, 0:D$ = CHR$ (13) + CHR$ (4):VT$ = CHR$ (27) 

CHR$ (62) + CHRS (202) + CHR$ (27) + CHR$ (61): REM 
VT$ PRINTS VERTICAL BAR 
IN TRS80 BLOCK CHARACTERS 



95 Nl$ ■ "ENTER DATA FOR " 








97 N3$ = "LABEL" 








98 N2$(l) = "LEFT ":N2$(2) = "RIGHT " 








100 F ■ 1 








101 HOME 








102 N$ = Nl$ + N2$(F) + N3$: GOSUB 1000 






110 PRINT "LINE #1: " : I 


>RINT 






120 PRINT "LINE #2: 


1 : PRINT 


130 PRINT "LINE #3: 






1 : PRINT 


140 PRINT "LINE #4: 






' : PRINT 


150 PRINT "LINE #5: 






1 : PRINT 


160 PRINT "LINE #6: 






1 : PRINT 


180 VTAB 2: POKE 36,8: INPUT AS(F) 








190 IF LEN (A$(F)) > 13 THEN GOSUB 


2010: 


GOTO 


180 


200 VTAB 4: POKE 36,8: INPUT B$(F) 








205 L = 2 








210 IF LEN (B$(F)) > 27 THEN GOSUB 


2020: 


GOTO 


200 


220 VTAB 6: POKE 36,8: INPUT G$(F) 








225 L ■ 3 








230 IF LEN (C$(F)) > 27 THEN GOSUB 


2020: 


GOTO 


220 


240 VTAB 8: POKE 36,8: INPUT E$(F) 








245 L - 4 








250 IF LEN (E$(F)) > 27 THEN GOSUB 


2020: 


GOTO 


240 


260 VTAB 10: POKE 36,8: INPUT F$(F) 








265 L = 5 








270 IF LEN (F$(F)) > 2 7 THEN GOSUB 


2020: 


GOTO 


260 


280 VTAB 12: POKE 36,8: INPUT G$(F) 








285 L = 6 








290 IF LEN (G$(F)) > 27 THEN GOSUB 


2020: 


GOTO 


280 


3 20 VTAB 16 









330 N$ - "USING DOS 3.3? (Y/N-DEFAULT 

350 GET Y$ 

360 IF Y$ = CHR$ (13) GOTO 400 

370 DOS$(F) - "DOS 3.2" 

380 GOTO 404 

400 DOS$(F) - "DOS 3.3" 

404 IF F = 2 THEN GOTO 415 

405 HOME : VTAB 10 

407 N$ ■ "REVERSE SIDE USED? (Y/N)": GOSUB 1000 
409 GET Y$ 

IF Y$ = "Y" THEN F = 2: GOTO 101 

HOME 

PRINT D$"PR#1" 

PRINT CHR$ (9) + CHR$ (l)r: REM 



'YES' )" : GOSUB 1000 



411 
415 
420 
423 



(continued) 
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RESETS PRINTER FLAG FROM 
CONTROL- I TO CONTROL-A 

425 PRINT CHR$ (27); CHR$ (64)?: REM 
EPSON RESET COMMAND 



427 IF F = 1 THEN GOTO 600 

430 PRINT CHR$ (15); CHR$ (27); CHR$ (71);; REM 

SETS CONDENSED PRINT 
DOUBLE STRIKE 



435 PRINT CHR$ (27);"D"; CHR$ (29); CHR$ (32); CHR$ (0)?: REM 
SETS HORIZONTAL TABS 

440 PRINT CHR$ (14);A$(F - l); CHR$ (20); CHR$ (1)"K" : PRINT : PRINT 
CHR$ (9);VT$;: PRINT CHR$ (9); CHR$ (14)?A$(P)j CHR$ (1)"K": THEN 270 
PRINT CHR$ (9)VT$: REM 

PRINTS FIRST LINE 

450 PRINT B$(F - l)r: PRINT CHR$ (9);VT$;: PRINT CHR$ (9);B$(F): REM 
PRINTS SECOND LINE 

460 PRINT C$(F - 1);: PRINT CHR$ (9)?VT$;: PRINT CHR$ (9);C$(F): REM 
PRINTS THIRD LINE 

470 PRINT E$(F - 1);: PRINT CHR$ (9);VT$;: PRINT CHR$ (9);E$(F); REM 
PRINTS FOURTH LINE 

480 PRINT F$(F - 1);: PRINT CHR$ (9);VT$;: PRINT CHRS (9);F$(F): REM 
PRINTS FIFTH LINE 

490 PRINT G$(F - 1);: PRINT CHR$ (9);VT$;: PRINT CHR$ (9);G$(F): REM 
PRINTS SIXTH LINE 

510 PRINT CHRS (14);DOS$(F - 1); CHR$ (20); CHR$ (1)"K"; PRINT : PRINT 
CHR$ (9);VT$;: PRINT CHR$ (9); CHR$ ( 14 ) ;DOS$ (F) ; CHR$ (1)"K" : REM 

PRINTS 'DOS' LINE 

550 PRINT CHR$ (27); CHR$ (64);: REM 
RESETS PRINTER 



560 PRINT D$"PR#0" 

570 GOTO 3000 

600 PRINT CHR$ (27); CHR$ (69); CHR$ (27); CHR$ (71);: REM 

SETS EMPHASISED PRINT 
DOUBLE STRIKE 



605 T = INT ((40 - ( LEN (A$(F)) * 2)) / 2) 
610 PRINT TAB( T) CHR$ (14)A$(F): PRINT : REM 

SETS EXPANDED MODE FOR 1ST LINE 



620 PRINT TAB( 5);B$(F) 

630 PRINT TAB( 5);C$(F) 

640 PRINT TAB( 5);E$(F) 

650 PRINT TAB( 5);F$(F) 

660 PRINT TAB( 5);G$(F) 

680 PRINT TAB( 11); CHR$ { 14 ) ; DOS$ (F) : REM 



(Continued) 



Figure 1 

UTILITY *22 

< MISCELLANEOUS UTILITIES > 
Program Lin« Editor active 
DOS arranged for firmware 
card in slot #3 

«« MASTER DOS »» 
3-3 



BACK SIDE 



FRONT SIDE 

DOS 3.3 
SYSTEM MASTER 
INSPECTOR livn in 
INTE8ER BASIC for me with 
RAH cird. 
DOS 3.3 



DOS 3.3 
BASICS DISK 



DOS 3.3 



Since I was using an Epson MX- 80 
printer, I tried to include as much as I 
could in the label. Different print sizes, 
double strike, and even some graphics 
can be used. 

Figure 1 shows the final result. The 
labels are neat and have room for more 
information than I could ever put on by 
hand. Here's how the program does it. 

I set up a center-justified print 
routine in line 1000 that I used for the 
opening billboard and instruction 
screens. In lines 30-60, for example, I 
set N$ equal to the line of information 
and GOSUB to line 1000 to print it. 
Line 80 is a housekeeping line that 
defies the DOS command string and 
VT$, which issues the necessary ingre- 
dients to print the vertical divider on 
the two-sided labels. This is formatted 
for the MX-80 with Graftrax graphics 
ROMs installed. This line is formed by 
the TRS-80 graphics characters, which 
are also available without Graftrax if 
you know how to access them. 

Lines 95-160 set up the video screen 
with a format to give me the exact 
length I can use for each of the seven 
possible label lines. Line 180 and the 
similar ones following POKE the cursor 
on the start of the underlined format. 
You can write a program line, such as 
12Q, with all those underline strokes, 
even if your Apple doesn't have an 
underline key in two ways. The easier 
is Neil Konzen's Program Line Editor, 
which enables you to print an under- 
line with an 'ESC 3' combination. If 
you don't have this utility, you can get 
a line of underscores by executing the 
following line from the immediate mode: 

]FOR X = 1 TO 40: PRINT CHR$(95) 
;:NEXT 



Lines 180-290 input all the label in- 
formation into a series to two-element 
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APPLICATIONS H^H 

string arrays (one element for each side 
of the diskette) . The IF statements ex- 
amine the length of each line you have 
typed in. If you have gone longer than 
the underscored line, it skips down to 
line 2020 for a new format line. The ef- 
fect is magically to erase your offending 
line and put the cursor back at the 
beginning, waiting for you to try again. 
Notice 'CALL -868'. This little-used 
monitor routine clears the line from 
the cursor location to the right margin 
and removes the extra characters which 
did not fit on the line. 

Lines 350-405 tell the program 
which DOS line we want printed on the 
bottom of the label. 'F' in line 404 is a 
flag that we use to determine whether 
we are printing a single-sided or double- 
sided label. It is set by the routine in 
lines 405-411 and sends the program 
back for another batch of information 
pertaining to the back side of the 
diskette, if it is used. 



Lines 415-700 offer two different 
print routines — one for each type of 
label we might wish to print. All of 
those 'CHR$' characters are under- 
stood by the MX- 80 firmware; your 
Graftrax manual will help you identify 
them. If you are using another printer, 



SETS EXPANDED MODE FOR DOS LINE 

690 PRINT CHR$ (27); CHR$ (64) 

700 PRINT D$"PR#0" 

710 GOTO 3000 

1000 T = (40 - ( LEN (N$))) / 2: 

2010 VTAB 2: PRINT "LINE #1 : 

2020 VTAB (2 * L) : PRINT "LINE # " ;L;": 

; : CALL - 868 : RETURN 
3000 HOME : TEXT : VTAB 12 



PRINT TAB( T)N$: RETURN 

"} : CALL - 868: RETURN 



3005 N$ = "TO CONTINUE, PRESS <SPACE BAR> " : GOSUB 1000 

3010 N$ ■ "TO END, PRESS < RETURN >" : GOSUB 1000 

3020 X = PEEK ( - 16384) 

3030 IF X < > 160 AND X < > 141 THEN GOTO 3020 

3040 IF X = 141 THEN & : END 

3050 & : RUN 



you can insert your printer subroutines 
here in accordance with the protocol 
for your particular machine. 

Lines 3000-end constitute a little 
routine that lets you sign off gracefully 
when you are finished with the pro- 
gram. It is simply a matter of reading 
the keyboard for your instructions and 
following through (the keyboard strobe 
was cleared in line 80). Line 3050 is 
used only if you have Konzen's pro- 
gram line editor to help you. It will per- 
mit you to enter your labels in upper 
and lower case, but PLE gets turned off 
when the printer slot is invoked in line 
420. The '&' command in line 3050 
turns PLE back on for use in creating 
your next label. 



Caution 

Never try to scroll label stock 
backwards through your printer in 
order to save a few unused labels. There 
is a phosphor bronze pressure plate on 
the MX-80 which will strip off a back- 
sliding label and firmly implant it on 
the inaccessable innards of your printer 
platen assembly. This can mean an $80 
repair bill to get the label out of the 
printer and to replace the phosphor 
bronze spring. Three or four saved labels 
are obviously not worth that risk. 

David Allen may be contacted at 19 
Damon Road, Scituate, MA 02066. 

~~ JMCftO 




A STATISTICAL ANALYSIS 

AND FILE MAINTENANCE SYSTEM 

FOR THE APPLE II™ MICROCOMPUTER 

As a Subset Language of P-STAT™ 78... 
A-STAT™ 79 computes: 

FREQUENCIES 

BI-VARIATE TABLES - CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REGRESSION 

RESIDUALS 

APPLE PLOT INTERFACE 

APPLE FILE CABINET INTERFACE 

FILE SORT 

AGGREGATION 

REPORT WRITING 

COMPLETE TRANSFORMATION LANGUAGE 

READS VISICALC FILES 

A-STAT™ 79 

Uses Standard DOS Text File and EXEC's 
48K Version — All programs in Applesoft 1 ™ 

A-STAT™ 79 is available from: 

ROSEN GRANDON ASSOCIATES 

7807 Whittier Street 

Tampa, Florida 33617 

(813)985-4911 

A-STAT™ 79 on disk with 80-page manual... $145.00 

Apple II tm j s a trademark of the Apple Computer Inc. 
P-STAT tm 7a j s a trademark of P-STAT Inc., Princeton, N.J 
A-STAT tm 79 is copyrighted by Gary M. Grandon, Ph.D. 



L 



Attention! 

Apple 

Owners 



MICRO will continue to publish 
some of the best Apple articles 
available. The MICRO staff's 
Apple expertise has been greatly 
increased by the recent addition of 
Tim Osborn, an Apple Specialist. 

We expect to be publishing 
significantly more Apple material 
in upcoming issues, beginning 
with July, an Apple Feature issue. 
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GET FREE SOFTWARE FOR YOUR COMPUTER! 

HOW? JUST ORDER ANY OF THE ITEMS BELOW, AND SELECT YOUR FREE SOFTWARE FROM THE BONUS 
SOFTWARE SECTION, USING THE FOLLOWING RULE: FOR THE FIRST $100.00 WORTH OF MERCHANDISE 
ORDERED TAKE 1 ITEM; FOR THE NEXT $200.00 WORTH OF MERCHANDISE ORDERED TAKE ANOTHER ITEM; 
FOR THE NEXT $300.00 TAKE A THIRD ITEM, ETC. ALL AT NO COST. 



HARDWARE by APPLE COMPUTER 

APPLE1I+.48K 1199 PASCAL LANG. SYS. 397 

FLOPPY DR. + CNTRLR 535 FLOPPY DRIVE 455 

We carry the rest of the APPLE line at low, low prices! CALL! 

OTHER HARDWARE for APPLE 



300 Smartmodem 
16KRamcard 



A/D + D/ACard 
Romplus 



DC. HAYES: 

Micromodemll 
MICROSOFT: 

Z80Softcard 269 

MOUNTAIN COMPUTER: 

CPS Multifunction 199 

Expans. Chassis 595 

CALL FOR MORE PRICES. WE CARRY FULL LINE! 

CALIF. COMPUTER SYSTEMS: 

CentronicsPar. Int. 115 A/DConv. 

Async. Serial Int. 135 Ar th. Proc /Disk 

CALL FOR MORE PRICES. WE CARRY FULL LINE! 

VIDEX: 

80 Col Board 275 Switchplale 

Enhancerl 105 Enhancer II 

MORE OTHER HARDWARE FOR APPLE: 



SSMAIO 

SSM Serial ASIO 

SSMPar.APIO 

SSM A488 IEEE 

NavationAPL.CAT 

VERSAWRITER 



159 

115 
99 
425 
339 
249 



ART Keypad 
Keyboard Co. Keypad 
Sunshine Joystick 
Cisco Paddles 
PrometheusZCard 
SUP'R'MOD 



105 
135 



105 
339 



15 
125 

119 
129 
40 
29 
229 
29 



OTHER SOFTWARE for APPLE: 

PERSONAL SOFTWARE: 



Visicalc3.3 

Visiplot 

Visiterm 

Desktop Plan II 

MICROSOFT: 

APPLE Fortran (Z80) 

TASC Basic Compiler 

MICRO-PRO: 

Wordstar 

Spell-Star 

PEACHTREE:BIZPackages,all 219 

CPA BIZ Packages, all 199 



159 
149 
125 



149 
139 



245 
149 



Visifile 

Visiplot/Visitrend 

Visidex 

Visipak 

APPLECobol(ZSO) 

Olympic Declathon 

Mail-Merge 
Data-Star 



199 
199 



559 



499 

25 



99 
199 



MORE OTHER SOFTWARE for APPLE: 



D8 Master 179 

Data Factory 125 

ASCIIExpress3.3 55 

SorcimSuperCalc 250 
Howard Tax Preparer 82 125 

RealEstateAnalyzer 129 

AshtondBasell 495 

Graph Trix 49 



BMasterforCORVUS 399 



PFS 

PFS Report 

SpellguardCP/M 

BroderbundG. Ledger 

Broderbund Payroll 

dBase II Manual 



85 
85 
235 
335 
335 
50 



WORD-PROCESSORS for APPLE: 



WordstarCP/M 
Magic Wand CP/M 
Executive Secretary 
Letter Perlect 
Magic Window 
Spellguard 



245 
299 
199 
125 
85 
235 



EZWriterProf.Sys. 
MUSESuperText 
Wdrdpower 
Hebrew II 
Superscribe II 
SpellstarCP/M 



Word Handler (Gives 80-Col . & lower case with no board ! ) 



215 

125 
50 
55 
110 
149 
199 



EPSON: 

MX80 

MXIOOw/Graftrax 

APPLE Intfce/Cbl 

GRAPPLERIntfc 

MX80 Ribbon 

C.ITOH: 

25CPS Daisy Par 

45CPS Daisy Par. 

Daisy Tractor Option 

NEC SPINWR1TERS & 

3530Par/R0 

7730Par/R0 

77DSellum 

QUME: 

9/45 

IDS: 

445G 

560G 

Tl: 810 Basic 

MPI:88G 

PRINTR0NIX:P300 



PRINTERS 

495 MX80F/T 

775 MX70w/Graftrax 

85 GRAFTRAX 

149 2K Buffer Ser. Card 

15 MXIOORibbon 

1440 25CPSDaisySer. 
1795 40 CPS Daisy Ser. 
225 PRO-WRITER Par. 
MATRIX PRINTERS: 
1895 3510Ser/RO 
7710Ser/RO 
NECPC8023A 
DIABLO: 
630 R/0 



2445 
2795 



2149 

699 460G 

1075 Prism Color Printer 

1349 810Serial 

579 99G 

4500 P600 



575 
375 
90 
135 



1495 
1895 
515 

1895 
2445 
675 



875 
1699 
1429 



ADD-ON MEMORY CARDS & DISK DRIVES 
FOR APPLE 

MEMORY: 

Microsoft 16KRamcard 159 
Legend 128K Ram card 649 
Legend 64K Ram card 299 
SVA256KAPL-Cache 1045 
APPLE-COMPATIBLE FLOPPIES by MICRO-SCI: 
With Controller: No Controller 

A35Dir. Replacement 450 A35 
A4040-Track 489 A40 

A7070-Track 599 A70 

APPLE-COMPATIBLE FLOPPIES by VISTA 



40 Track 163KB 389 

160 Track 652KB 799 

V1000 Dual 8" 

Subsystem 1300 

SORRENTO VALLEY ASSOC: 



Saturn 32KRamcard 199 
Prometheus 128K Ram, 550 
4116Add-lnMem/16K 29 



415 
399 
499 

559 
549 



AMS8000Dual8 
AMS 8000 Dual 8", 

Dbl.Sd. 
ZVX4Quad Controller 
CORVUS: 
5 Mbyte 
20 Mbyte 



1945 



2595 
495 



3195 
5600 



80Track326KB 
8 "A800 Controller 
V1000 Dual 8" 
Dbl.Side 



AMS 5000 5 Mb. Drive 2995 
AMS501010Mb. Drive 3495 
Disk 2 + 2 Controller 359 



10 Mbyte 
Mirror 



4395 
675 



MONITORS & PLOTTERS 

ZENITH: 

12"Green 125 13" Color 

AMDEK: 

12 "Green 135 13 "Color 

WATANABE FLATBED PLOTTER: 

4 Pen 1150 6 Pen 

STROBE CYLINDRICAL PLOTTER: 

Plotter 699 APPLE Intfce 

HOUSTON INSTR FLATBED PLOTTER: 

DMP3 Smart Plotter 1299 6-Pen Adaptor 



375 
375 
1400 
75 
349 



COMPUTER SYSTEMS 

HEATH/ZENITH: 

Z89FAComputer(48K) 2150 Z90Computer 2490 

Z19Terminal 725 Z47Dual8 Drive 2775 

WORDSWORTH by LEADING EDGE: 

(A Zenith Z89 &C.IT0H 25 cps Starwriter & CP/M & Full Word- 



Processing Software & 


Super-Calc) 


4500 


HEWLETT-PACKARD: 








HP125 


2599 


HP85 


2099 


82903A16KMem. 


250 


290/M Dual 5" Drive 


2125 


NEC: 








PC80O1 A 32K Computer 1099 


PC8012A I/O Unit 


699 


PC8031 A Dual Drives 


1099 


CP/M2.2forNEC 


12b 


WordstartorNEC 


299 


Super CalcforNEC 


279 


COMMODORE: 








VIC20Computer 


259 


VIC1515Printer 


315 


8032 Micro Mainframe 


1100 


8050 1MB Dual Disk 


137b 


8250 2 MB Dual Drive 


1760 


4040 Dual Drive 


999 


4022Printer 


630 


8024-7Hi-SpeedPrinter1345 


ATARI: 








ATARI 800(1 6K) 


599 


ATARI 400 (16K) 


339 


810DiskDrive 


449 


825 Printer 


619 


16K Ram Memory 


89 


850 Interface 


159 


MICROSOFT BASIC 


69 


VISICALC 


159 


815Disk 


1199 


Letter Perfect 


125 


INTEC32KRam 


129 


Axiom 28K Ram Disk 


550 


XEROX: 








820 1 System w/5" Or 


2495 


820-2Systemw/8"Dr 


3145 


WORDSTAR 


419 


CP/M OP. SYS. 


1/5 


SUPERBRAINbylNTERTEC 






64KDD 


2695 


64KQD 


2995 


DSSlOMeg 


3195 


Emulator 


725 


Inlertube 


725 







Heath/Zenitnzi9 

Televideo920C 

Televideo910 

ADDSR25 

AM PEX Dialogue B< 

IBM310M0 



CRT TERMINALS 

725 Televideo912C 
775 Televideo950C 
595 ADDSViewpoint 
875 ADDSR40 
, 2-page, Detachable 



685 
985 
595 

1175 
995 

1199 



MODEMS 

CAT 159 DCAT 169 

VENTEL212-3.1200BD 849 AUTDCAT 229 

LEX-11 149 UNIVERSALAUTO.ANS 220 

UNIVERSALORIG/ANS 180 UNIVERSAL 1200BD 259 



S100CARDWARE 

SSMMB6464KMem 775 HAYESS100 MODEM 349 
CCS64KDynamic 429 QTCIock/Cal 135 



FLOPPY DISCS 

3M5"SoftSSSD/bx 29 3M8"SoflSSSD/bx 33 

Elephant 5.25" Elephant 8" 

SottSSSD/bx 25 SoftSSSD/bx 29 



BONUS SOFTWARE SECTION ! 



Let us acquaint you with MESSAGE-MAKING SOFTWARE. Just place the disk in the 
APPLE, enter the texl, and colorful, dynamic messages appear on the screens of TV sets 
connected to the computer. Use the software to broadcast messages on TV screens in 
schools, hospitals, factories, store window, exhibit booths, etc. The following program is 
our latest release: 

SUPER MESSAGE: Creates messages in full-page "chunks". Each message allows 
statements of mixed typestyles, typesizes and colors, in mixed upper and lower case. 
Styles range from regular APPLE characters, up to double-size, double-width characters 
with a heavy, bold fonl. Six colors may be used for each different typestyle. vertical and 
horizontal centering are available, and word-wrap is automatic. Users can chain pages 
together to make multi-page messages. Pages can be advanced manually or automatical- 
ly Multi-page messages can be stored to disc or recalled instantly. 

REQUIRES 48K & ROM APPLESOFT $50. 

APPLE PLOTS YOUR DATA & KEEPS YOUR RECORDS TOO! APPLE DATA GRAPH 2.1: 
Plots up to 3 superimposed curves on the Hi-res Screen both X & Y axes dimensioned. 
Each curve consists of up to 1 20 pieces of data. Graphs can be stored to disc and recalled 
immediately for updating. Up to 100 graphs can be stored on the same disc. Great for 
Stock-market Charting, Business Management, and Classroom instruction! 

REQUIRES 48K & ROM APPLESOFT $35. 

APPLE RECORD MANAGER: Allows complex files to be brought into memory so that 
record searches and manipulations are instantaneous. Records within any file can con- 
tain up to 20 fields, with user-defined headings. Information can be string or numeric. 
Users can browse thru files using page-forward, page-backward or random-search com- 
mands. Records can easily be searched, altered or sorted at will. Files can be stored on 
the same drive as the master program, or on another, if a second drive is available. 



Records of files can be printed, if desired. Additional modules coming are a STATISTICS 
INTERFACE, CHECKBOOK, MAILING LIST & DATA ENTRY. 

REQUIRES 48K & ROM APPLESOFT $40. 

APPLE LITERATURE DATABASE: Allows rapid retrieval (via keywords) of references from 
total APPLE literature thru 1980, on 5.25" disk. Each entry in the data base consists of the 
article, author-name, periodical-name, date of issue, & page nos. The database is 
intended to support large magazine files which would require lengthy manual searching 
to recover information. Annual updates will be available. 

REQUIRES 48K& ROM APPLESOFT $60. 

WORDPOWER: Is a simple, powerful, low cost, line-oriented word-processor program It 
offers a fast machine language FIND & REPLACE. Text can be listed to screen or printer, 
with or without line-numbers. Lower-case adaptors are supported. You can merge files, 
move groups of lines, and easily add, change, or delete lines. WORDPOWER can be used 
to create and maintain EXEC files. It can also be used as a rapid, unstructured, informa- 
tion-storage and retrieval system via its rapid search capabilities. 

REQUIRES 48K & ROM APPLESOFT $50. 

LABELMAKER: Allows users to quickly create address labels. A given label may be gen- 
erated in any quantity from 1 to 32767. Space is allowed on labels for a personal and 
company name, but the space is automatically closed up if only a personal name is 
entered. Space is also allowed for foreign countries. The program can also generate 
labels for price-tags, part numbers and mail-messages such as "RUSH", "FRAGILE", etc. 
A self-incrementing feature allows theatre-tickets to be produced, with a date, and 
numbers running from aOOO to z999. An editor is provided for editing labels prior to print- 
ing. All labels may be saved to disk for instant recall. 
REQUIRES 48K & ROM APPLESOFT $35. 



Above software for APPLE DOS 3.2/3.3 only. Call for BONUSES for other systems. 
TO ORDER: Use phone or mail. We accept VISA, MASTERCARD, COD's, personal checks & 
money orders. Add 4% for credit card. Customer pays handling on COD orders. Foreign 
orders must be in American Dollars & include 10% for handling. Connecticut residents add 
7.5% sales tax. Prices subject to change without notice. 



CONN. INFO. SYSTEMS CO. 
(203)579-0472 

218 Huntington Road, Bridgeport, CT 06608 
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APPLICATIONS! 



Program for Inverting 
a Matrix 

by Brian J. Flynn 



Include this short BASIC routine 
in your mathematical and 
statistical programs. 

Matrix inversion is used in many 
business and statistical computer pro- 
grams. For example econometric tech- 
niques ranging from ordinary least 
squares to multiple linear regression 
analysis almost always use a matrix in- 
version routine. This article presents a 
short BASIC program for inverting a 
matrix. You can easily make part of it a 
separate module in one of your bigger 
programs. The algorithm/ Gauss-Jordan 
Sweep without pivoting (named for 
mathematicians Carl Friedrich Gauss 
and Camille Jordan), quickly and ac- 
curately inverts most small matrices, 
when executed in double precision. 
Other routines, such as Gauss-Jordan 
Sweep with complete pivoting, generally 
produce more accurate solutions, but 
only by sacrificing program simplicity. 

Matrix Inversion 

A matrix is a rectangular array of 
numbers or symbols. Only square 
matrices can be inverted, with the in- 
verse being that matrix which, when 
multiplied by the original array, yields 
an identity matrix. An identity matrix 
contains Is along the principal diagonal 
and Os everywhere else. The principal 
diagonal runs like this: " \ ". 

In the example in figure 1, matrix X 
denotes the original array. Its inverse is 
X -1 , and I is the identity matrix. 

The trick of course, is to find X -1 . 
In the Gauss-Jordan Sweep procedure 
this is done by tacking an identity 
matrix onto the original array, and con- 
verting the original array into an identity 
matrix using elementary row and col- 
umn operations. The right-side matrix 
that emerges is X" 1 . This process is il- 
lustrated in figure 2. 



Please address correspondence to the 
author at 1704 Drewlaine Dr., Vienna, VA 
22180. 



100 REM INVERTING fl MATRIX USING GAUSS- JORDAN SWEEP., 
110 REM 

BV BRIAN J. FLVNN 

NOVEMBER 1981 



WITHOUT PIVOTING 



K IS THE SIZE OR ORDER OF MATRIX 
X IS THE DATA MATRIX 



126 REM 
13B REM 
140 REM 

150 REM IF VOUR COMPUTER HAS DOUBLE-PRECISION ARITHMETIC, 

160 REM DEFINE ARRAV X AND VARIABLES P AND X AS SUCH 

170 REM 

180 REM 

190 REM 

208 REM 

210 REM INITIALIZATION 

228 REM CLEAR SCREEN 1 PRINT"a" — PET, HOME — APPLE 

230 PRINT" INVERTING A MATRIX USING GAUSS- JORDAN SWEEP, WITHOUT" 

240 PRINT" PIVOTING." 

250 PRINT 

268 PR INT "PLEASE ENTER THE ORDER OF VOUR MATRIX, THAT IS., THE" 

270 PRINT" NUMBER OF ROWS OR COLUMNS IN IT. REMEMBER, HOWEVER, 

280 PRINT" THAT ONLV SQUARE MATRICES CAN BE INVERTED- " 

290 PRINT 

388 INPUT "ORDER ■ " f K 

310 DIM X<K,2*K> 

338 REM 

340 REM ENTER DATA 

358 REM 

368 FOR 1=1 TO K 

378 REM CLEAR SCREEN 

388 PR I NT "PLEASE ENTER VOUR DATA." 

390 PRINT"ROW #".*!*" i" 

408 PRINT 

410 FOR J=l TO K 

420 PR I NT "COLUMN #";J; 

438 INPUT X<I,J> 

448 NEXT J, I 

468 REM 

478 REM INVERT MATRIX 

480 REM 

490 REM TACK ON I DENT I TV MATRIX 

500 REM 

510 FOR 1=1 TO K 

520 FOR J=l TO K 

538 IF JO I THEN X<I,K+J> *= 8 

548 IF J=*I THEN XU,K+J> - 1 

558 NEXT J, I 

568 REM 

570 REM INVERT MATRIX 

588 REM 

590 FOR 1=1 TO K 

600 REM ADJUST KEV ROW 

610 P * xa,i> 

620 FOR J=l TO 2#K 

630 X<I,J> m X<I,J>/P 

648 NEXT J 

658 REM ADJUST REMAINING ROWS 

668 FOR J=l TO K 

670 X - X<J,I> 

680 FOR L - I TO 2*K 

690 IF JOI THEN XCJ,L> - X<J,L> - X*X>U,L> 

700 NEXT L,J,I 

720 REM 

730 REM PRINT MATRIX 

740 REM 

750 REM CLEAR SCREEN 

760 FOR 1*1 TO K 

770 FOR J=l TO K 

780 REM USE PRINT USING, IF AVAILABLE, INSTEAD OF PRINT 

790 PRINTX<I,K+J>;" "; 

800 NEXT J 

810 PRINT 

820 NEXT I 

838 PRINT 



54 



MICRO - The 6502/6809 Journal 



No. 49- June 1982 



(applications! 















Figure 1 
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To invert 



Figure 2 



using Gauss-Jordan Sweep, without pivoting, the 



6 2J 
following steps are performed: 

1. Tack an identity matrix onto the original array. 



2. Convert the original array into an identity matrix using elementary row 
and column operations. 

a. Divide the entire first row of the matrix by 4, so that the upper left-hand 
element will equal 1 : 



0.25 

2 



0.25 




b. Make the numeral 6 a by multiplying the first row by 6 and subtac- 
ting the product from the second row: 



0.25 
0.5 



0.25 
•1.5 



c. Divide the entire second row by 0.5, so that the number 0.5 becomes a 1 : 



0.25 
1 



0.25 
-3 



d. Finally, multiply the second row by 0.25 and subtract the product from 
the first row: 



-3 



-0.5 

2 



A harvest of 
savings from 




Appl&^&Ttee 
Electronics 



SOFTWARE 



APPLE 'ATARI' TRS80 • IBM 

A full line of software for business, games 
and education lip to 35% off! 



MUSE 


IUS 


VISICORP 


STONEWARE 


ONLINE 


SYNERGISTIC 


EDCJ-WARE 


HAYDEN 


HOWARD 


AND MANY MORE 



HARDWARE 



AMDEK • HAYES • MICROSOFT 

List Our Price 
32K RAM card $293.00 $205.00 
Video Term $345.00 $279.00 
Lazer Products 20% off 



DISKS 



Maxell BoxoflO,5!4",SS-DD $35.00 
Verbatim Box of 10, 5 1 4",SS-DD $29.00 



MONITORS 



List 



LE MONITORS 

9" Green 
12" Green 
ZENITH 

12" Green $179.00 $129.00 

Plus a full line of AMDEK Monitors 



$189.00 
$199.00 



Our Price 
$159.00 
$169.00 



PRINTERS 



PAPER TIGER 

460G 
560G 
EPSON 

MX 70 

MX80FT 

MX100FT 



List 



Our Price 



$1,094.00 $950.00 

$1,394.00 $1,250.00 

$449.00 $395.00 

$745.00 $595.00 

$945.00 $795.00 



CALL FOR THIS MONTHS SPECIAL ! 



1-800-835-2246 EXT. 211 

OR 

702-452-5589 



5130 East Charleston Blvd. 

Suite SMI 
Las Vegas, Mevada 89122 



^55S 



Phone orders welcome. Mail orders may send 
charge card number (include expiration date), 
cashiers check, money order or personal check 
(allow ten business days for personal or com- 
pany checks to clear). Add $3.00 for shipping, 
handling and insurance. Mevada residents add 
5.75% sales tax. Please include phone number. 
All equipment is in factory cartons with manu- 
facturers warranty. Equipment subject to price 
change and availability. Call or write for price list. 
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J^ ATARI 




ATARI 800 
16K...$679 
32K . . . $749 
48K...$819 

410 Recorder $76.00 

810 Disc Drive $449.00 

822 Printer $269.00 

825 Printer $629.00 

830 Modem $159.00 

820 Printer $269.00 

850 Interface $169.00 

New DOS 2 System $29.00 

CX30 Paddle $18.00 

CX40 Joy Slick $18.00 

CX853 16K RAM $89.00 

Microtek 16K RAM $69.00 

Microtek 32K RAM $139.00 

Ramdisk (12BK) $449.00 

One year extended warranty $70.00 

INTEC 48K Ram $249.00 

481 Entertainer $83.00 

482 Educator $130.00 

483 Programmer $57.00 

484 Communicator $344.00 




ATARI 400 

16K . . . $329 
32K . . . $478 
48K . . . $555 

Visicaic $179.00 

Letterperfect $109.00 

Ricochet $14.50 

Crush Crumble & Chomp $24.00 

Star Warrior $29.00 

Rescue at Rigel $24.00 

Datestones $16.00 

Invasion Orion $18.50 

Mission Asteroid $22.00 

MouskATTACK $31.00 

The Next Step $34.00 

Softporn $27.00 

Wizzard & Princess $29.00 

KBYTE Krazy Shoot Out (ROM) . . $39.00 

Protector (Disk 32K) „24.00 

Jaw Breaker (on line disk) $27.00 

Ghost Hunter (cassette) $24.00 

Ghost Hunter (disk) $30.00 

PAC MAN $35.00 

Centipede $35.00 

Caverns of Mars $32.00 

Synapse 

File Manager 800 $69.95 

Dodge Racer $19.00 

Chicken $24.00 

Slime $24.00 

Nautilus $24.00 

Disk Manager $24.00 

Fort Apocalypse $24.00 

Assembler $39.00 




Texas 
Instruments 




TI-99/4A $ 299 

R.F. Modulator $29.00 

Telephone Coupler $169.00 

RS-232 Accessories Interface . . . $169.00 

Disk Drive Controller $239.00 

Disk Memory Drive $389.00 

Memory Expansion (32K RAM) . . $319.00 
Wired Remote Controllers(Pair) . . $31.00 

32K Expansion $329.00 

PHP Printer Solid State $319.00 

Home Financial Decisions $26.00 

Personal Record Keeping $43.00 

Mailing List $60.00 

Checkbook Manager $18.00 

Tombstone City 21st Century $34.00 

Munch Man $34.00 

Tl Invaders $34.00 

Car Wars $34.00 

Computer 
Covers 

ATTRACTIVE COVERS FOR YOU 
COMPUTER AND DISK DRIVE. 

Atari 400 $6.99 

Atari 800 $6.99 

Atari 810 $6.99 

All Atari Covers are Beige. 

Commodore VIC-20 $6.99 

Commodore 8032 $14.99 

Commodore 8050/4040 $10.99 

All Commodore Covers are Rovai Blue. 

Monitors 

Amdex 12" B&W $129.00 

12" Green $139.00 

13" Color $349.00 

NEC 

12" B&W $169.00 

12" Color $339.00 

Tl 10" Color $349.00 

Zenith ZVM 1 21 (G reen) $11 9.00 

Televideo 

910 $579.00 

912C $699.00 

920C $749.00 

925C $749.00 

950 $939.00 

Modems 

Li verm ore Star $119.00 

Hayes 

Smart $239.00 

Chronograph $199.00 

Micromodem II $279.00 

Micromodem 100 $309.00 

Novation Auto $239.00 

D Cat $169.00 

Cat $159.00 



RB| HEWLETT 
mL'EM PACKARD 




HP»85 $ 1899 



80 Column Printer $799.00 

HP-125 $1999.00 

HP-83 $1699.00 

HP*85 16K Memory Module $169.00 

5V* " Dual Master Disc Drive . . . $1769.00 

HP«87 $1769.00 

Hard Disk w/Floppy $4349.00 

Hard Disk $3440.00 

"Sweet Lips" Plotter $1149.00 

HP41CV Calculator 
$ 239 

41C $189.00 

11C $104.00 

12C $114.00 

34C $114,00 

38C $114.00 

HP»41 Printer $340.00 

HPIL CALCULATOR PERIPHERALS 

IL Modual $104.00 

Digital Cassette $449.00 

Printer/Plotter $419.00 

Card Reader $164.00 

Optical Wand $99.00 



Apple 



Call for availability and prices 
on all Apple computers and peripherals. 

Printers 

Centronics 739-1 $519.00 

Centronics 739-3 $619.00 

Diablo 630 Special $1799.00 

Epson 

MX80 w/Graltrax $449.00 

MX80FT Call 

MX100 Call 

NEC 

8023 $549.00 

7730 Call 

7720 Call 

7710 Call 

Okidata 

82A $499.00 

83A $749.00 

84 $1129.00 

Citoh Starwriter 

F10-40CPS $1469.00 

F10-55CPS Call 

Prowriter $479.00 

Talley 

8024-7 $1399.00 

8024-L $1629.00 

IDS 

Paper Tiger $Call 

Prism $Call 

2 Meter RS232-RS232 $29.95 

Cables Available For Most 
Interfacing Purposes 



Qcommodore 




8032 $ 1039 



4032 $969.00 

4016 $769.00 

8096 Upgrade Kit $399.00 

Super Pet $1599.00 

2031 $529.00 

8250 (Double Sided D. Drive) . . $1699.00 

5 Megabyte Hard Disk $2399.00 

8050 $1299.00 

4040 $969.00 

8300 (Letter Quality) $1799.00 

8023 $769.00 

4022 $599.00 

Pet to IEEE Cable $37.00 

IEEE to IEEE Cable $46.00 

Tractor Feed lor 8300 $240.00 

SOFTWARE 
Commodore Magis 

BPI Professional Software 

Visicorp Creative Software 




VIC 20 
s 249 

Call for price and availability of 
VIC-64 

16K VIC Expansion $99.00 

Commodore Catassette $69.00 

Disk Drive $499.00 

VIC Graphic Printer $339.00 

3K Memory Expander $32.00 

8K Memory Expander $53.00 

RS232C Terminal Interface $43.00 

VIC IEEE488 Interface $86.00 

VIC 20 Super Expander $53.00 

Programmers Reference Guide ..$15.00 

Introduction to Computing $19.00 

Introduction to BASIC Programming$19.00 

Household Finance $27.00 

VIC Games $19.00 

VIC Home Inventory $13.00 

VIC Rec/Ed II $13.00 

Terminal $13.00 

Un Word $13.00 

Grafix Menagerie $11.00 

VIC PICS $15.00 

Ticker Tape $1 3.00 

Banner Headliner $13.00 

RS 232 $39.00 

Super Slot $23.00 

VIC Avengers $23.00 

Super Alien $23.00 

Super Lander $23.00 

Draw Poker $23.00 

Midnite Drive $23.00 



6ast computer mail order 



800-233-8950 



477 East Third Street 
Williamsport, PA 17701 
(717)327-9575 

Patricio Habfa Espanol 



CALL TOLL FREE 
HOW TO ORDER: 

In-stock items shipped same day you call. No risk, no deposit on 
C.O.D. orders. Pre-paid orders receive free shipping within the 
continental United States with no waiting period for certified checks 
or money orders. All prices shown are cash prices add 3% for 
Mastercard and Visa. NV and PA residents add sales tax. All items 
subject to availability and price change. 



W€St 

800-648-33II 

P.O. Box 6689 

Stateline, Nevada 89449 

(702) 588-5654 

Franco Habla Espanol 
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/AIC _ 

Reviews in Brief 



Product Name: Olympic Decathlon 

Equip, req'd: Apple II with 48K 

Price: $29.95 

Manufacturer: Microsoft Consumer Products 

10700 Northrup Way 

Bellevue, WA 98004 
Description: Hi-res animation game requiring user com- 
petition against other players or against his own previous 
high scores. The program simulates all events of an actual 
decathlon. Algorithms for scoring seem well designed. 

Pluses: Exceptional graphics. Good instructions are pro- 
vided to teach the user how to play one of the most dif- 
ficult games on the market. 

Minuses: Very difficult physically. This game is definitely 
not for children. Good coordination and timing are 

required. 

Documentation: A booklet is provided that includes in- 
depth instructions. It also gives clues for strategy, a rarity 
in the market. Grammatically correct and well written. 

Skill level required: No programming experience required. 
Good coordination is a must. 

Reviewer: Chris Williams 



Product Name 
Equip, req'd: 



Price: 
Manufacturer: 



Authors: 



Executive Briefing System 

Apple II with Applesoft in ROM or 

RAM card. One or more disk drives. 

48 K or RAM memory. 

$199.00 

Professional Software Technology Inc. 

180 Franklin Street 

Cambridge, MA 02139 

Mitchell Kapor and Todd Agulnick 
Description: Creates and presents a slide show of Apple II 
hi-res screens. Provides transitions between slides 
(curtain-up, curtain-down, spiral, dissolve). Adjustable 
time per slide in automatic or manual change mode. Inter- 
rupt feature holds on any slide until ready. Quick manual 
advance or reverse review, if needed. Automatic shift to 
alternate disk drive. Automatic program restart. Multiple 
fonts (type-styles and sizes) with optional additional fonts. 
Uses VisiCalc-style cursor commands. Can use graphics 
made outside of program or can create graphics for use out- 
side program. 

Pluses: Creates separate program diskette which is un- 
protected and may be copied by any copy program. Has 
cursor draw mode for making simple borders and separa- 
tions. Easy type style change in editor. Has bold-face, col- 
or, and reverse print options. Optional packed file mode 
allows many more slides per disk than conventional 34 
sector files. Can pack save any standard graphic file. 
Organizes slide presentation order independent of order in 
which slides are created. Provides for skipping slides 



without deleting them from disk. Has print driver for most 
popular printers for paper slide copies. 

Minuses: Inconvenient access to presentation catalog 
listing during editing. No provision for paper print out of 
presentation catalog listing. Dissolve transition mode not 
very neat. Smallest fonts are unreadable on any color 
screen (but perfectly OK on black and white monitor) . No 
center justification function during slide creation. Master 
disk is copy protected. 

Documentation: Excellent 100 plus-page manual provides 
hand-holding tutorial on complete program. Excellent demo 
program included called "The Great Conoco Auction," 
describing last year's take-over of Conoco by DuPont. 

Skill level: Same skills as other business programs such as 
VisiCalc, etc. No computer programming skills required. 

Reviewer: David P. Allen 



Product Name: 600 Baud Serial Parallel Converter, 
p/n PI80C 

Equip, req'd: TRS-80 Color Computer 

Price: $69.95 

Manufacturer: The MICRO WORKS 

P.O. Box 1110 

Del Mar, CA 92014 
Description: The PI80C is a small module slightly larger 
than a ROMPACK for the TRS-80C Color Computer. It at- 
taches to the Color Computer via a 5-pin DIN plug and 
cable, and is powered by a wall-plug transformer. The out- 
put is a 36-pin card edge compatible with card-edge con- 
nectors which implement parallel Centronics-type printer 
cables. It has a fixed 600 baud data rate, requiring no 
operator intervention when used with the Color Computer. 

Pluses: This unit provides a hassle-free interface between 
the Color Computer and printers requiring a Centronics- 
type parallel drive. Unlike a few simple shift register inter- 
faces, this device provides transmission of all 7-bit and 
8-bit data words, thus allowing full utility of printers re- 
quiring special escape codes and other special code se- 
quences to activiate special printer attributes. 

Minuses: The fixed baud rate can be changed by opening 
the case and adjusting the frequency of the internal 
oscillator for another baud rate, but this action would void 
the warranty. Also, no schematic is furnished. 

Documentation: Entirely adequate for all normal usage; 
well done. 

Skill level required: Ability to follow printed instructions. 
No special techniques are required. 



Reviewer: Ralph Tenny 



(Continued on next page) 
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Reviews In Brief 



(continued) 



Product Name: Tricky Tutorials 

Equip, req'd: Atari 400/800, 16K Cassette or 24K 

Disk 
Price: $14. 95 /tutorial 

Manufacturer: Santa Cruz Educational Software 

5425 Jigger Dr. 

Soquel, CA 95073 
Description: These programs are designed to instruct pro- 
grammers in the use of the advanced hardware buried in- 
side each Atari. There are currently five tutorial programs. 
These programs can be used independently, but to get the 
most from them they should be studied in order. The six 
tutorials are: 1. display lists, 2. horizontal and vertical 
scrolling, 3. page flipping, 4. animation, 5. players/ 
missiles, 6. sound and music. Each tutorial comes com- 
plete with a short manual and program media (disk or 
cassette). More instruction is provided within the pro- 
grams as you are shown different techniques, the code that 
produced the display or sound with additional commen- 
tary. Suggestions are made for further experimentation 
and study. The power of immediate feedback with suffi- 
cient explanation is not to be underestimated. 

Pluses: These programs combine the computer with the 
power inherent in color graphics and sound; this is a most 
effective and enjoyable learning tool. These programs rein- 
force information from the difficult-to-understand 
operating system and hardware manuals that have kept 
many of us up more than a few nights. 

Minuses: The material presented is complicated and 
demands much from the user. The casual viewer will not 
learn much. Experimentation, asking the "what if" ques- 
tions, and thinking, are all necessary to getting the most 
out of this software. 

Documentation: The initial written documentation was 
somewhat skimpy. This has been updated and new 
material added. The entire 6-pack can be purchased in a 
three-ring binder. 

Skill level: The material presented requires a comfortable 
knowledge of BASIC to fully explore all that's presented. 
Additionally, an enthusiasm for really digging into your 
Atari would be an advantage. 



Reviewer: James Capparell 



Product Name: 6502 Microcomputer, P/N 80-153 

Equip, req'd: Single-board microcomputer 

Price: $119 assembled and tested; 

$19.95 bare board 
Manufacturer: John Bell Engineering, Inc. 
P.O. Box 338 
Redwood City, CA 94064 
Description: A single-board computer based on the 6502 
microprocessor, using a 6522 VIA as a programmable I/O 
device, with 1024 bytes of read/ write memory and one 
EPROM socket which can be configured for either a 2716 
EPROM or a 2532 EPROM. The board is small (3W" x 
4Yi") and uses a 50-pin edge-card connector. No memory 
expansion is provided, but 25 unused pins on rear of con- 
nector would allow careful expansion within decoder 
limits. The memory map is decoded to allow 7168 bytes of 
read/ write memory, 256 bytes of I/O beginning at $1C00, 
and 52K of EPROM. A 2716 EPROM installed in the ex- 
isting EPROM socket will be addressed beginning at 



$F800. The result is a controller card with 16 program- 
mable I/O lines, IK of read/ write memory and either 2K 
or 4K of program memory. An R/C network provides the 
clock. 

Pluses: A potentially handy and versatile single-board 
computer at a fair price. 

Minuses: The board has a serious, undocumented memory 
timing error which will cause problems in almost any ap- 
plication that uses read/write memory for anything except 
a minor amount of scratchpad. The good news is that the 
fix is almost zero-cost; it requires only an etch cut and a 
jumper wire. In view of this design error, the assembled 
and tested product may be over-priced, since the unwary 
user can lose several hours of time debugging an unreliable 
and erratic machine. For the informed experimenter, the 
required etch cut would take only minutes during 
assembly of the bare board. 

Documentation: Reasonably complete and well-done; in- 
cludes some start-up hints and a brief tone generator pro- 
gram listing. 

Skill level required: The user must thoroughly understand 
all steps needed to develop a rudimentary monitor and 
debug a new, untested microcomputer board. He should 
also be skilled at board assembly, modification, and 
soldering if the bare-board option is chosen. The manufac- 
turer has a monitor EPROM available, but no details of 
this are available wihout direct inquiry. 

Reviewer: Ralph Tenny 



Product Name: 
Equip, req'd: 
Price: 
Manufacturer: 



Monkey Wrench 

Atari 800 

$49.95 

Eastern House Software 

3239 Linda Drive 

Winston-Salem, N.C. 27106 
Description: This ROM-based product is designed to be in- 
stalled in the righthand slot of the 800. It enhances Atari 
BASIC with nine useful commands: (A) auto line number- 
ing, (D) delete range of lines, (M) change margins, (T) 
memory test, (R) renumber, (E) cursor key without control 
key, ($| hex conversion, [#) decimal conversion, and a 
machine- language monitor providing another 15 com- 
mands. The MLM prompt is a period (.). 

Pluses: Monkey Wrench puts the always empty right slot 
of the Atari 800 to use. It is designed to be compatible with 
Atari BASIC. There is room for another ROM on the car- 
tridge and Eastern House is currently working on the new 
ROM enhancement. This is an excellent development tool. 

Minuses: The cartridge uses address space $8000 to $9FFF. 
This will reduce your 48K machine to 32K, 8K used by the 
BASIC cartridge and 8K used by Monkey Wrench. This 
product uses part of page 6 for variable storage which is 
sure to cause some conflict. Care is needed when inserting 
the cartridge: it's very easy to put in backwards. 

Documentation: The manual is short, sweet, and easy to 
use. A nice example of each function is provided, leaving 
little to your imagination. 

Skill level required: This product can be used by any level 
of BASIC programmer. Serious BASIC users will find it in- 
dispensable. I recommend it. 

Reviewer: James Capparell 
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with topics like: 

Smail-C 

FORTH 

Lisp 

CP/M 

S-tOO 

Cross-assemblers 

8086/8088 

16-bit tech. 

Pascal 

Assembler 

Compilers 

Algorithms 

8080/Z80 

6502 

etc. 




• valuable software tools 

• algorithms & problem solving 

• industry news 

• important product reviews 

With in depth coverage of: 

• telecommunications 

• systems programming 

• language development 

• machine independent programs 

iisl latiiilis,:' Mmcfc;: : mo;re! 



Yes ! Please enter my subscription for 



T4 



□ 1 yr. (12 issues) $25 

□ Please bill me 

Name 



□ 2 yrs. $47 (save $13 off newsstand) 

□ I enclose check /money order 



Address 

City 



. State. 



.Zip. 



Are you ready? 

DDJ, the world's foremost micro- 
computer publication, has been work- 
ing for years to prepare its readers to 
be innovators, to lead the wave of 
breakthroughs in our changing tech- 
nology. 

Every issue of Dr. Dobb's Journal 
helps one to understand the nuts and 
bolts of small computer systems. We 
offer entire listings of valuable soft- 
ware: our pages have included com- 
pilers, cross-assemblers, editors, new 
languages, hardware interfaces and 
more — usually before anyone else 
thinks of them ! 

Even more 
important! 

As valuable and significant as all 
those things are, there is an even great- 
er reason for you to join forces with 
DDJ. That is the keen, responsive 
readership. Our subscribers share in- 
sights, correspond, and contribute to 
one another's work, more than any 
other group we know. They treat 
Dr. Dobb's Journal as a "hands-on" 
publication. 

This warm cooperation has done 
more to refine software products, and 
generally to advance the state of 
microcomputer technology, than per- 
haps any other resource. And it is 
available to you tnrough our pages! 

For the straight 
Facts . . . 

If you are a serious computing 
professional or enthusiast, then you 
should take a very close look at what 
DDJ offers you. We've been on the 
cutting edge since 1976. 



Dr. Dobb's Journal • A Publication of People's Computer Company, 1263 El Camino Real, P.O. Box E, Menlo Park, CA 94025 
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By Loren Wright 



A New Disk Cataloging System 



Programs, particularly commercial ones, 
should be easy to use, well-docu- 
mented, and modifiable enough to meet 
a wide range of user needs. Terms 
sometimes used to describe program- 
ming of this quality include 'human- 
engineered' and 'user-friendly.' Many 
programs purport to be human- 
engineered or user-friendly, but few ac- 
tually succeed in meeting all of the 
necessary criteria. 

When a company calling itself 
"Human Engineered Software" was 
born last year, I viewed the event with 
great interest and a little suspicion. 
Even after I evaluated their first prod- 
ucts — HESBAL/HESEDIT, an inexpen- 
sive assembler/ editor (July 1981 issue) 
and HESLISTER, a program that pro- 
duces 'structured' printed listings from 
a BASIC program on disk (August 1981 
issue) — I still had some doubts about 
the company's ambitious name. HES's 
recent releases have convinced me that 
it is worthy of its name. 



Besides human engineering, there is 
another theme to the company's prod- 
ucts. All are tools, designed to aid the 
programmer in coding, debugging, op- 
timizing, and generalizing his program- 
ming. One new program, called HES- 
COUNT, counts the number of times 
each line of a BASIC program is ex- 
ecuted — a seemingly trivial task. 
When you think about it, this informa- 
tion is very valuable. Lines that never 
get executed can be eliminated, while 
lines that are executed many times 
show themselves as prime targets for 
optimization efforts. 

Another product, called HESCOM, 
handles transfer of programs and data 
among different kinds of PETs and 
VICs. These programs will be reviewed 
either in this column or in ' 'Reviews in 
Brief" in the near future. This month's 



column is reserved for HESCAT, 
Human Engineered Software's new 
disk cataloging system. 



My collection of PET disks has 
grown to include more than 50 disks, 
and my ability to keep them organized 
has not kept pace. I keep special types 
of files on separate disks — WordPro, 
Wordcraft, HESBAL, MAE, Pascal, 
RPL, FORTH, and COMAL. It's the 
rest of the collection that is tough to 
keep in line. When I'm looking for a 
program that I haven't used lately, I can 
usually narrow it down to a few disks; a 
search of the directories involved will 
turn up the file in a few minutes. More 
and more often, though, I just can't 
seem to find a program, so I waste a lot 
of time searching. Organizing the disk 
collection has been on my must-do list 
for quite a while, but the magnitude of 
the task has always deferred me. When 
I received HESCAT for review, I was 
certainly interested, but I was also a bit 
apprehensive. Could HESCAT really 
solve this problem? 



I gave HESCAT the ultimate test — 
my disk collection! The only prelimin- 
ary step was to separate the 8050 disks 
from the rest. The system can handle 
2040/4040 or 8050 disks, but not both 
because of the hardware differences. 



HESCAT is actually a menu pro- 
gram that loads up the different compo- 
nent programs. There is a 'help' feature 
that will show you, on request, a brief 
explanation of each menu option. From 
the menu you select the 'catalog' op- 
tion, and then, with your catalog disk 
in drive 0, you run through your disks 
one by one in drive 1. 

You have to assign each disk a 
unique 'external ID.' These numbers 
are maintained separately from the in- 
ternal IDs — the ones actually written 
on the disk. They may not be unique, 
and it is impossible to change them 
without rewriting the disk. I assigned 
external IDs according to the order they 
occurred in my pile, but it would prob- 
ably be a good idea to make the internal 
and external IDs the same wherever 
possible. Cataloging each disk takes 
about 15 seconds; the exact time de- 
pends on how many files are on the disk. 
Most likely errors are trapped by the 
catalog program, which advises you to 
try again. You can recover from an error 
that causes a break in the program (such 
as inserting an 8050 disk in a 4040!). 

Once you have all your disks cata- 
loged, it is necessary to sort only the 
file names before you can start using 
the other programs. The sort is written 
in machine language and is very fast. 
(Continued on page 61) 





Figure 1: Portion of 'Headers' Printout 
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Datamost brings you the fantastic 
games— games that are fun, chal- 
lenging . . . games where you must use 
skill, strategy and dexterity . . games 
that span the universe from ancient 
pirate times to a robotic future with 
stops along the way for enjoyment at 
the county fair, a casino, a baseball 
game! 

Scan this catalog for a list of our 
current games, and be sure to note the 
totally new ones just available: 
MISSING RING, BASEBALL, and 
SOLO POKER! Try them . . . you'll have 
a funtastic time. 



Missing Ring 

You've never enjoyed an adventure with such 
exciting HI-RES graphics! You're on a hunt for 
the mysterious Missing Ring ... in a house full 
of diabolical traps. You see a FULL SCREEN 
layout of the level you're searching . . . plus you 
can call up a FULL SCREEN picture of any 
room you're in! 

Finding the missing ring is a real challenge, a 
great battle of wits. And the spooky Ghost and 
dreaded Dragon add spice to the hunt. Here's 
the ultimate in HI-RES adventures ... the one 
all others will be compared to! $29.95. 



World Series Baseball 

Here's world series calibre Baseball in HI-RES 
graphics that bat a thousand. The top baseball 
game for two people. Takes strategy and agility 
and real baseball 'smarts'. 
The pitch comes and the batter swings . . . your 
fielders race into position ... run down 
grounders, have to throw to the bases. A 
terrifically competitive game ... the next best 
thing to actually playing in the series yourself. 
$29.95. (paddles) 




Datamost software covers the world of 
business. Our programs are not merely 
the brainchildren of some computer 
engineer. Rather, they have been 
written and designed by business 
experts — and tested in the field, in 
your kind of business environment. So, 
when you select a Datamost program, 
you know it'll work beautifully, easily, 
and live up to your expectations . . . 
while saving you time and money, and 
increasing productivity. 







ISSUES 



BUSINESS 



Money Business series 

This extensive series of programs 
deserves to be called the master- 
piece of business software. For, 
unlike competitors, it combines 
the finest attributes you can find. 
Each program covers its subject 
thoroughly. . . so it can be applied 
to your business. Each program 
comes with documentation which 
is easy to read . . . easy to under- 
stand and apply, and so complete 
that your questions are answered 
almost before they're asked! (Plus 
we offer full professional support 
by phone, mail or visit.) Our 
MONEY BUSINESS series 
includes general ledger, payroll, 
accounts receivable, accounts 
payable . . . with more being 
proven on-site and coming your 
way soon. CP/M. $800/module. 
Complete package $2500. 



1 


R.E.A.P. 

The Real Estate Analysis Program 
is a real key to the money 
business of real estate invest- 
ment. It charts cash flows, return 
on investment, shows profitability 
and tax consequences — so you 

become a knowledgable investor, ,^ ^^^^^^^^^^^^ 
Loaded with the help you need to IS J 
analyse every opportunity, to beat 
the real estate game. For Apple II. 
$129.95. 

Write-On! ™ §|M 

There are word processors of all w/m 
kinds, but there's only WRITE- 
ON! for anyone who wants the 
program praised by BYTE ... the m 
powerful word processor that lets 
you get started in about 5 minutes 
flat! Nothing easier . . . quicker to 
learn ... or, so really useful. For 
Apple II, Apple til and for IBM. I 
$1 29.95. ■■■■■■■■■IB 
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Tax Beater 

A necessity at tax time ... a 
blessing year-round! Tax Beater 
takes the confusion out of taxes.. 
. . .whether the simplest or most 
complicated returns. It auto- 
matically evaluates up to 120 
return options — so you pay the 
minimum. Perfect for the average 
taxpayer, indispensable for the 
financial professional. For Apple 
II. $12.9.95. 



See your computer store for the entire line of Datamost products. If 
unavailable, you may order direct. For games and books, include $1.00 
for shipping/handling. For business programs and hardware, add 3%. 
(California residents, add 6% sales tax also.) 

*CP/M is a trademark of Digital Research. Apple, Apple II & III are trademarks of Apple Computer, Inc. 



<! J DATAMOST 



9748 Cozycroft Ave., Chatsworth, CA 91311. (213) 709-1202 



(Continued from page 60) 

Now you can reap the benefits. 
Probably the most frequent use of the 
catalog will be to 'locate' a file. The 
name you give doesn't have to be speci- 
fied exactly. You can use wild or 'don't 
care' characters. All file names that 
meet the criteria are listed, along with 
their types and disk locations. 

From time to time you'll want 
printed information on your disk files. 
HESCAT supports CBM, Base2, and 
Epson MX-80 printers. There are three 
types of printouts: headers (figure 1), 
directories (figure 2), and alphabetized 
names (figure 3). Headers provides 
summary information about each disk 
— name, ID numbers, number of files, 
number of blocks free, and number of 
direct access blocks allocated. Direc- 
tories provides a separate directory 
listing for each disk, and alphabetized 
names provides all the names in alpha- 
betical order, with file-type and disk 
number. For each print option you can 
specify that all disks be included in the 
listing, or only a specified range. 

Updating the catalog is a simple 
matter. Just enter the 'catalog' program 
and catalog only the disks whose con- 
tents have changed since the last ses- 
sion. The names corresponding to that 
external ID will be replaced by those for 
the new contents of the disk. There is 
also a 'display' program, which is used 
to view the contents of a sequential 
file. You will use it occasionally to 
check the contents of HESCAT files, 
but it will also come in handy for many 
other applications. Finally there is a 
'user function' option, which can be 
selected from the menu. There is no 
function included, but there are many 
possibilities. 

As with the other HES products I've 
examined, HESCAT is well docu- 
mented with both a user and a program 
manual. The program manual includes 
full listings and descriptions of the 
functions of all variables. The programs 
themselves are heavily commented. 
The most likely change is one to ac- 
commodate a printer not supported 
directly by the program. 

I have only one minor complaint. In 
the cataloging process, you are asked to 
supply the external ID for a disk before 
its directory is read. Giving the wrong 
ID number may accidentally wipe out 
the file information for a disk already 
cataloged. The program should check 
the name and IDs against what already 
exists in the catalog and give you a 
chance to confirm your decision to 
recatalog a disk. This would also help 
in matching external IDs to the inter- 
nal ones. 



Figure 2: Portion of 'Directories' Printout 
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Figure 3: Portion 
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My overall impression, though, is 
very favorable. HESCAT can handle 
many more disks and file names than 
any one person is likely to have (the 
exact number depends on the com- 
puter disk drive type, and program 
modifications) . If you have more than a 
few disks to keep in order, I recom- 
mend HESCAT to you. I'm now look- 
ing for a program to do something 
about my desk. 



HESCAT by Jerry Bailey is available 
from Human Engineered Software 
(3748 Inglewood Blvd., Rm. 11 Los 
Angeles CA 90066) for $23.95. ' 
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TRS-80 Model I & Hi 

The Room's of Cygnes IV 

You are in a roo» with xa! Is plated randomly throughout. There are 

three to ten ROBOTS bent on destroying you with laser fire or ov 

touching you. y ou itl st destroy ail the robots in a rooi to adyance a 

level. The higher the level the faster the robots. HATCH-OUT the hIU 
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Trs-00 1 4 III Sound both IAK basic t, 32K lachine Cassette - »9.9S 

Trs-SO Hodel I Disk 32K basic fc 48K sachine - 115.95 

Murder Mansion - Adventure #1 

Vou and six other people are exploring a three story house for a 
treasure. HATCH-OUT!! Soieone is killing the others and you could be 

Trs-BO version has a oraphic representation of each root'" 

O.S.I. C4P - BK Cassette - » 12.95 

Trs-SO I !, Ill (Graphics) 32K Cassette - (15.95 

Trs-BO I 4BK Disk - *19.95 

Color Music 

This is a fantastic Hchine language proorai. This prDgrai nafs 4 
sections that Kill reproduce patterns on the screen with iiific. 
Connect your recorder or stereo to the input jack on the colter and 
natch the iusic coie alive. The four options are: 

!. 6RAPHIC PATTERNS 2, COLOR PATTERNS 

3. COLOR LASERS 4, COLOR BARS 

O.S.I. C4P Color SK Cassette - (8.95 

Tank Trap 

This is a one player gaae where you fight the computer. The object is 
to destroy the ENEHY TANK and HOUSES before he destroys VOU and YOUR 
HOUSES. But WITCH-OUT for the hidden hTNES!! 
D.S.I. MP Color Sound Joysticks BK Cassette - li.95 

Star Explorer 

You are the only surviver of a sneak attack on the fleet. Vou iust 
destroy the regaining eneiy BATTLESHIPS and their HONE PLANET before 
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of the PLANET DESTROYER xeapon, But MATCH-COT one of the STARVES has 
been taken over! ! 
O.S.I. E4P Color Sound BK Cassette - i fl ,95 

Send $1.00 for catalog 
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PET/CBM 

2000/3000/4000 Series 
not using a CRT, or display controller chip 

$275.00* 



Select either 
BO x 25 or 4Q x 25 



On The 
Built-in 
Display 



From the keyboard or program 

Displays the full, original character set 

Available from your local dealer or: 
EXECOM CORP. 

1301 Polaris Ave. 
Racine, Wl 53404 
Ph. 41 4-632-1 00<4 

• Plus installation charge of $"75.00 



Available only for Basic 3.D & Basic 4.0 
PETS. CBM™a 

trademark of Commodore Business Machines 



Ver. 2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH- 
79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 
Professionally written tutorial & user manual 200 PG, 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lowercase keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics 
COMBINATION PACKAGE 
(CA res. add 6% tax: COD accepted) 



$ 99.95 

$ 49.95 
$139.95 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A..CA 90025 (213)821-4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 




NEW PET/CBM SOFTWARE 

Let Computer Mat turn your Pet into a 
Home Arcade! 



ASTEROIDZ — Its your ship vs. a swarm of killer gammaroidz. 
You are on a collision course and must destroy them before they 
blast you into the next galaxy. Four levels of play. Has hyperspace 
keys that move you around. Arcade style entertainment at its finest. 
Great graphics and sound. 

Cass. 8K $9.95 

MUNCHMAN — How many dots can you cover? It's you against 
the computer munchers ZIP and ZAP. Can you clear the maze first 
or will they get you? Number keys move you up, down, right and 
left. GREAT GRAPHICS AND SOUND. 

Cass. 8K $9.95 

TARGET COMMAND — Its you against a barrage of enemy 
lazers that are aimed at your ammo dumps. Sight in on the targets 
and score as many hits as you dare. As your skill increases so does 
the the difficulty — (5 levels to select). This is an arcade-style game 
with great graphics and sound effects. A must for your PET/CBM. 
Cass. 8K $9-95 



ALL OUR SOFTWARE RUNS IN 8K 

OLD-NEW ROM - 40 CHR. SCREEN 

WRITE FOR FREE CATALOG OF VIC/PET SOFTWARE 

PLEASE ADD $1.00 PER ORDER FOR SHIPPING 

COMPUTER MAT • BOX 1664R • LAKE HAVASU CITY, AZ. 86403 




80's 
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NEC 
EPSON 



739-1 /Parallel 


525. 


739-3/Serial 


625. 


2 Color Adapter 


69. 


Microline80 


349. 


Microline82-A 


479. 


Microline83-A 


749. 


Microline 84 


1,055. 


Okigraph(82Aor 


83A) 69. 


PC8023-A 


509. 


MX 80 


449. 


MX 80/FT 


549. 


MX 100 


719. 


Graftrax 


69. 
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BUSINESS 
COMPUTERS 

o< Peterborough 



NEW! 
MO Daisy Wheel 40/cps 1525. 
Comet l/P 295. 

Starwriter45cps serial 1,599. 

Special! Regularly sells for 2,595. 

Cables and interface cards available for the 

Atari, Apple, TRS-80 Osborne and CBM/Pet. 

FREE SHIPPING and HANDLING. 

766 Middle Hancock Road 
Peterborough, NH 03458 (603) 525-6621 



BASIC, FORTH, and RPL 



by Timothy Stryker 



BASIC and FORTH, two widely 
accepted high-level languages 
for microcomputers, are 
compared to RPL, a relative 
newcomer to the field. The 
languages are compared with 
respect to time-efficiency, 
space-efficiency, transportability, 
and ease-of-use considerations. 

Although RPL is currently 
available only for PET and 
CBM, this article is of general 
interest . 



Editor's Note: Timothy Stryker is the 
developer of RPL and his company, 
"Samurai Software" markets RPL for 
PET and CBM computers. 

BASIC ; Beginners' All-Purpose Sym- 
bolic Instruction Code, is an excellent 
language in many respects. It is easy to 
learn and easy to use. It is very tolerant 
of user error, which makes the debug- 
ging of programs in BASIC a relatively 
simple matter. Although many dif- 
ferent versions of BASIC exist, enough 
of its features have become standard- 
ized to make it reasonably transport- 
able. A BASIC program written on a 
PET or CBM will generally run on 
other machines with minor modifica- 
tions, and vice versa. 

The main problem with BASIC is 
its speed. If you have ever tried to write 
a real-time game or process control pro- 
gram in BASIC, you have no doubt 
found that it bogs down very easily. 
PET/CBM BASIC is one of the fastest 
floating-point BASICs in existence, but 
there are still many applications for 
which this BASIC is too slow to be of 
value. BASIC also consumes prodigious 
amounts of memory, both for storing 
user programs and for storing the data 
to be processed during execution. This 
can lead to problems with the OUT OF 
MEMORY error in the course of writing 
large applications programs. 



BASICs lack of speed has caused 
many programmers to become inter- 
ested in FORTH as a widespread lan- 
guage for small computers. Because 
FORTH usually manipulates numbers 
in integer form, it gains a significant 
speed advantage over BASIC (micro- 
processors can manipulate integers 
much more quickly than they can 
floating-point numbers). In addition, 
FORTH is a "compiled" language, 
which means faster performance in 
looking up variables in tables, finding 
destinations of control-flow branches, 
and the like. Primarily through the ef- 
forts of the "FORTH Interest Group" 
("fig") in San Francisco, FORTH has 
become sufficiently well-known to 
make possible a reasonable degree of 
transportability between machines. Un- 
fortunately, FORTH' s "extensibility" 
(its ability to allow the user to add new 
constructs of all kinds to the language) 
has led to numerous substantially dif- 
ferent flavors of FORTH on the market. 
Nonetheless, most "fig-FORTH" ver- 
sions adhere fairly closely to the In- 
terest Group's standards. 

The main reason that FORTH has 
not caught on more strongly is that the 
language is considerably more difficult 
to use than BASIC. FORTH operations 
are ordered according to Reverse Polish 
Notation, which many people find ob- 
jectionable. At the same time, the fig- 
FORTH text editor and its associated 
disk I/O standards are both unique and 
cumbersome, which makes FORTH 
source file management difficult and 
error-prone. The lack of worthwhile 
FORTH debugging tools has not helped 
the situation either: once debugged, 
FORTH programs tend to be fairly 
solid, but getting to that point can take 
a major effort. 

In the midst of all this ferment, a 
new language called RPL has appeared 
on the scene. RPL, which stands for 
Reverse Polish Language, is to some ex- 
tent a combination of BASIC and 
FORTH. RPL is a compiled language in 
the same sense that FORTH is. RPL ob- 
ject code is not itself machine code, but 



it can be interpreted by a machine- 
language "run- time executive" that is 
part of the package. RPL also uses both 
a parameter stack and a return stack, 
just like FORTH. However, RPL resem- 
bles BASIC in many respects: its im- 
plementation on the PET/CBM uses 
Commodore's BASIC screen editor and 
all of the normal BASIC source file 
manipulation commands, like SAVE 
and DSAVE, LOAD and DLOAD, LIST, 
DIRECTORY, and so on. This means 
that RPL programs can be of arbitrary 
length, without your having to break 
them up into 1024-byte sections the 
way you must with FORTH programs. 
Also, RPL program listings read from 
top to bottom, just like BASIC listings 
(which is to say, unlike FORTH 
listings). 

Interestingly enough, RPL is sub- 
stantially more efficient than FORTH 
in both space and time in spite of the 
fact that it is easier to use. Since 
dedicated FORTHers will no doubt find 
this hard to believe, I have assembled a 
few small benchmarks on the CBM 
8032 in order to compare BASIC, fig- 
FORTH, and RPL in terms of their pro- 
cessing speeds and their memory usage. 

The Block-Move Benchmark 

Listings la, lb, and lc show BASIC, 
fig-FORTH, and RPL implementations 
of a simple block-move benchmark. 
The three versions have been kept in as 
close a correspondence to one another 
as possible — thus, line 150 of the 
BASIC version corresponds directly to 
line 150 of the RPL version and to line 6 
of the FORTH version, and so on. Since 
the routines must appear in bottom-up 
order in the FORTH version, the sym- 
metry is somewhat broken here, but 
the BASIC and RPL versions are line- 
for-line equivalents of one another. 

Each benchmark begins by zeroing 
the 8032's internal timer so that timing 
measurements can be made. In BASIC, 
this is accomplished by setting the 
variable TI$ to a string of six zeroes, 
whereas in both FORTH and RPL, this 
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is done by storing a zero into the word 
at memory location 142 (the sequence 
{0 142 !} accomplishes this in both 
languages) . 

Then, a 100-pass loop is set up so 
that the routines to be tested will each 
be run 100 times. Here we notice the 
first difference between FORTH and 
RPL: the RPL version does a {100 1 
FOR} to accomplish this, whereas the 
FORTH version does a {101 1 DO}. 
RPL's FOR is the equivalent of 
FORTH' s DO, except that in FORTH 
the upper bound of an iterative loop 
like this must always be specified as 1 
greater than the actual upper bound 
desired. RPL is more like BASIC in this 
regard, as you can see. 

The body of the loop in each case 
consists of setting up parameters to be 
passed to the routine under test, fol- 
lowed by a call to the routine itself. In 
the BASIC version, setting up of the 
parameters is accomplished by assign- 
ing values to the variables C, T, and F, 
which in this case specify that the 150 
bytes starting at 634 are to be moved up 
to start at 826. The FORTH and RPL 
versions of the benchmark, however, 
expect these arguments to be passed to 
them on the parameter stack. 

A crucial difference between 
FORTH and RPL is apparent here in the 
way in which the call itself is done: 
note that, in FORTH, the simple state- 
ment {BLKM} is sufficient to invoke 
the routine of that name. In RPL, say- 
ing simply {BLKM} merely causes the 
address of the BLKM routine to be 
pushed onto the stack: it is the {&} 
operator (pronounced "call") that ac- 
tually causes control to be transferred 
to the routine whose address appears on 
top of the stack. There are numerous 



Listing 1A 

100 REM ************************************************** 

110 REM * BASIC BLOCK-MOVE BENCHMARK 

120 REM * ROUTINE AT LINE 1000 MOVES C BYTES FROM F TO T * 

130 REM ************************************************** 

140 REM 

150 TI$="Q00000" : FOR I = 1 TO 100 

160 C=150 : T=826 : F=634 : GOSUB 1000 

170 NEXT I : PRINT TI ; "JIFFIES" : END 

1000 M=F-T : FOR J = T TO T+C-l ! POKE J,PEEK(J+M) : NEXT : RETURN 



Listing 1B 

( *********************************************************** ) 

1 ( * FORTH BLOCK-MOVE BENCHMARK * ) 

2 ( * BLKM EXPECTS FROM-ADDR ON TOS , THEN TO-ADDR, THEN COUNT * ) 

3 ( *********************************************************** > 

4 

5 : BLKM OVER - SWAP ROT OVER + SWAP DO DUP I + C@ I C! LOOP DROP 

6 : TEST 142 1 101 1 DO 

7 150 826 634 BLKM 

8 LOOP 142 § INT . ." JIFFIES" ; 



************************************ 



Listing 1C 

100 *********************************** 

HO * RPL BLOCK-MOVE BENCHMARK 

120 * THE BLKM ROUTINE EXPECTS FROM-ADDR ON TOS, THEN TO-ADDR, THEN COUNT * 

liQ **iS;*S**************************************************************** 

140 REM 

150 142 I 100 1 FOR 

160 150 826 634 BLKM & 

170 NEXT 142 @ INT STR$ PRINT " JIFFIES" PRINT STOP 

1000 BLKM: ; - % 3 $ ; + 1 - % FOR # FN + PEEK FN POKE NEXT . RETURN 



reasons why calls are set up this way in 
RPL, and we do not have the space here 
to go into them in any detail. Suffice it 
to say that the reasons center around 
space efficiency, speed, and ease of use, 
all three of which are optimized 
through the use of this construct. As 
evidence of this I can only cite the 
results of the benchmarks given here. 
These results are almost wholly due to 
precisely this difference between 
FORTH and RPL: in FORTH, you call a 
routine by simply stating its name, 
whereas in RPL you call a routine by 
stating its name and then invoking the 
{&} ("call") operator. 



Table 1 shows a few of the RPL 
operators and their FORTH equiva- 
lents. Using this table, you can see that 
the FORTH and RPL versions of the 
BLKM routine itself are virtually word- 
for-word equivalents of one another, 
the only difference being that, as 
before, the upper bound of the DO- 
LOOP in FORTH is 1 greater than the 
upper bound of the FOR-NEXT in RPL 
and BASIC. Note that FORTH' s {ROT} 
operator is equivalent to the sequence 
{3 $} in RPL: RPL's {$} operator takes 
the item on top of the stack and uses it 
to determine how deep into the stack 
the rotation process will go. 

(Continued on page 66) 



Table 1: 


A few of the RPL operator 


RPL 


FORTH 


I + 


+ 


\ 


MOD 


IF 


IF 


THEN 


ELSE 


END 


THEN 


i 


® 


I PEEK 


c@ 


POKE 


C! 


# 


DUP 




OVER 




DROP 


% 


SWAP 


$ 





Effects 

Add TOS to NOS, pop TOS 

Subtract TOS from NOS, pop TOS 

Take NOS modulo TOS, pop TOS 

Begin conditional based on TOS 

End THEN-part, begin ELSE-part 

End conditional 

Replace TOS with the word it points to 

Store NOS into word pointed to by TOS, pop both 

Replace TOS with the byte it points to 

Store NOS into byte pointed to by TOS, pop both 

Push a new copy of TOS 

Push a new copy of NOS 

Drop (or pop) TOS 

Swap TOS and NOS 

Rotate out TOS'th stack entry onto TOS 
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A feast of 
computing ideas. 



m 
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You'll love every byte 



if you work with a 6502 or 6809 based 
system, you're probabfy hungry for the 
facts and ideas that will heip you under- 
stand the inner workings of your com- 
puter. You want to go beyond canned 
software-use your computer for more 
than games- learn the advanced pro- 
gramming techniques that enable you 
to get the most out of your 6502/6809 
system. 

MICRO, The 6502/6809 Journal, 
gives you page after page, month after 
month, of solid information to sink your 
teeth into. MICRO is the premier how-to 
magazine for serious users of the Apple 
PET/CBM, OSI, Atari, AIM, SYM, KIM,' 
and all 6809 based systems including 
the TRS-80 Color Computer. It's a re- 
source journal internationally respected 
by professionals in business, industry 
and education. 

SUBSCRIPTION RATES (US dollars) 

Yearly subscription (ISSN 027-9002) 
saves 20% off the single-issue price 
U.S. , $24 (SPECIAL OFFER; Save 30% 
off single-issue price: 2 years, $42) 
Other countries, $27 (via surface mail 
Foreign air rates available on request.) 




Get more out of your Apple . . . 

with the most impor- 
tant book ever 
published for the Apple 



with the MICRO 

ON THE APPLE series 



/AICAO 

on the Apple 



b O [includes! 
^ i diskette | 



;mm^m%Mm^ :M :i| pppp 

mmmmsw' . &,"^mSB 







VOLUME 2 just released! 

More than 40 new programs on diskette 
to help you get more from your Apple: 

• Machine Language Aids 

• I/O Enhancements 

• Runtime Utilities 

• Graphics and Games 

• Hardware and Reference Infor- 
mation 

31 choice articles 

46 tested programs on diskette 
(13 sector DOS 3.2 format) 

Volume 1 also available at $24 95 
Together MICRO on the Apple 1 & 2 
provide more than 70 programs on disk- 
ette for less than $1 .00 each. No need 
to type in hundreds of lines of code. 



The most comprehensive description 
of Apple II firmware and hardware ever 
published — all in one place. 
What's Where in the Apple? 

• Guides you— with a numerical At- 
las and an alphabetical Gazetteer— to 
over 2,000 memory locations of PEEKs 
POKEs and CALLs. 

• Gives names and locations of vari- 
ous Monitor, DOS, Integer BASIC, 
and Applesoft routines— and tells you 
what they're used for, 

• Helps BASIC users to speed up 
their programs. 

• Enables assembly language pro- 
grammers to simplify coding and inter- 
facing. 

All Apple users will find this book help- 
ful in understanding their machine and 
essential for mastering it! 



• Look for all these MICRO INK publications at your local computer store, or 

* ?8o7/^ ext " 564 (in California, 

1 -800-772-3545, ext. 564) and charge it to your VISA or MasterCard or 

* USG the M,r pnT b fZ S D 6 " d y ° Ur Ch9Ck (payable t0 MICR °) a ^ the form to: 

MICRO, Dept. OA, P.O. Box 6502, Chelmsford, MA 01824. 



I 
I 



ITEM PRiCE EAO : 

MICRO on the Apple 1 ©$24 95 

"V. - ' ^ , u-c^U; v, ;M : - ' 
MICRO (U.S.) .... I yr @ S24; 2 yrs @ $42 . 
MICRO (Foreign) j yr Q$p7 

Massanhu;,, : esidenl d ' 

Ada $2 per book for shipping 



G Check enclosed 



D Chan , m i below 



-: , - 



porfifjar^* 



Sftem 



Civ 



□ VISA D Mas rCarc 



I 
I 
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Once the block-move routine has 
been executed 100 times, each program 
then prints out the number of "jiffies" 
(l/60ths of a second) that have elapsed 
since it started up. In BASIC, this con- 
sists of simply printing out the variable 
TI. In FORTH and RPL, the contents of 
location 142 are fetched onto the stack, 
"byte- interchanged", and printed out. 
The "byte-interchange" operation 
{INT} is necessary only because PET/ 
CBM BASIC stores the timer in high- 
order-byte-first order, whereas both 
FORTH and RPL expect fetched quan- 
tities to appear in the usual low-order- 
byte-first order in memory. 

In the process of printing out the jif- 
fy count and the word JIFFIES, we see 
another fundamental difference be- 
tween FORTH and RPL: RPL treats 
character strings as an elementary data 
type, whereas standard FORTH does 
not. The FORTH { . } operator both con- 
verts the top stack entry to ASCII and 
prints it out, and FORTH' s {."} 
operator unconditionally prints out the 
character string following it — at no 
time does fig-FORTH leave a character 
string sitting on the stack in such a way 
that the user can get at it. In RPL, 
character strings representing numbers 
are frequently placed onto the stack in 



Table 2: Results from the Block-Move Benchmark 



BASIC 

FORTH 

RPL 



Program 
Bytes 

115 
92 

57 



Data 
Bytes 

42 





Jiffies 

6044 
591 

525 



Figure 
of Merit 

23.23 
1.82 
1.00 



such a way that the user can then man- 
ipulate them to any desired purpose, 
because RPL's {STR$} operator merely 
converts the top stack entry to a char- 
acter string, and the PRINT operator is 
necessary actually to print the number 
out. Similarly, when RPL comes across 
a literal character string enclosed in 
quotes, it simply pushes that string on- 
to the stack: once the string is on the 
stack, it may be manipulated further, 
or, as in this case, immediately printed 
out using PRINT. 

Table 2 displays the results from 
this first benchmark. In BASIC'S case, 
the "Program Bytes" column does not 
count REMarks or spaces, but only the 
actual amount of memory taken up by 
the code itself. Many programs are 



available that compress BASIC code by 
removing all REMark lines and ex- 
traneous blanks, and the figure given 
here applies to the code size following a 
compression of this sort. In FORTH 
and RPL, the size of the object code is of 
course independent of the number of 
comments and spaces appearing in the 
source. 

The FORTH and RPL "Program 
Bytes" entries pertain only to the ob- 
ject code actually generated by the por- 
tions of the programs shown in listings 
lb and lc. It should be kept in mind 
that both of these languages actually 
incur about one additional K in mini- 
mum run-time memory overhead — in 
FORTH' s case, for the so-called "inner 
interpreter;" in RPL's, for the so-called 



What's Good for the Space Shuttle 
is good for your Apple II! . . . 



MICROWAR6. creator of OS-9/BASIC 09 (used by 

1 N.A.SA, and leading Universities, government agencies, 

and corporations Worldwide) joins with STELLATION TWO 

to deliver the same Operating system and Programming 

.anguage to the APPLE II. 



JUST PLUG IN Th 



OS-9/BASIC 09 are the result of a 3 year research project-designed with the 6809 
in mind. This "Operators dream machine" combines with THE MILL microprocessor 
to provide Apple II users with software features previously reserved for Mainframes and mini's. 
; MILL AND LET BASIC 09 WORK FOR YOU! other Steilation Two products include: 




MICROWARG, 



The Lobero Building P.O. Box 2342 
Santa Barbara, Ca, 93120 
(805) 966-1140 TELEX 658439 
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operators yield identical results, it 
should be recognized that FORTH' s 
poor performance in this benchmark is 
not primarily a function of anything in- 
herent in the language itself, but is 
largely due to the speed of the modulo 
algorithm chosen by the FORTH In- 
terest Group. 

The Falling-Tone Benchmark 

Listing 3 contains BASIC, FORTH, 
and RPL versions of a benchmark 
designed to test the languages in terms 
of general logical and arithmetic 
manipulations, including comparisons, 
conditional branching, and memory ac- 
cesses. Each program times itself doing 
100 calls to a routine that generates a 
falling whistle on the 8032's internal 
speaker. The method used to generate 
the falling whistle is based on the 
"VDC" algorithm (see the 10/81 issue 
of BYTE, p. 391). Each octave drop in 
pitch takes the same amount of time, 
regardless of whether the octave is 
toward the top of the range or toward 
the bottom (the same cannot be said of 
the obvious "FOR 1-1 TO 255:POKE 
59466,I:NEXT" in BASIC). 



This benchmark brings out yet 
another major difference between RPL 
and FORTH. First of all, note that in 
the BASIC version of the benchmark, a 
' ' conditional- within-a-conditional' ' (in 
line 1030) takes control out of the loop 
in lines 1020-1050 if the condition is 
met. There is every reason to suppose 
that this is a perfectly "structured" 
thing to do: only if the first condition 
(in line 1020) is not met will we deter- 
mine whether or not it is time to exit 
the loop. FORTH, however, does not 
permit this kind of construct. One may 
set up a BEGIN... WHILE... REPEAT 
loop in FORTH, but the WHILE oper- 
ator may not appear within the bounds 
defined by an IF... THEN pair within 
the loop. This is restrictive, to say the 
least, and in an application like this 
one it unavoidably leads to slower 
code. The best I could do to get around 
this in FORTH was to place the WHILE 
test outside the main conditional 
clause, which meant that it got ex- 
ecuted on every pass through the loop, 
regardless of whether or not it needed 
to be. RPL, being much more like 
BASIC in this regard, is able to get 
around this problem through the use of 



a GOTO (horrors!). This naturally 
opens Pandora's Box as far as hard-core 
structured-programming people are 
concerned. Suffice it to say that I feel 
that the real value of structured pro- 
gramming lies in its concern with mod- 
ularization and clean, well-thought-out 
software design, not in terms of 
myopic, over-applied dogmas such as 
"No GOTOs!" and "No Multiple En- 
try Points!", etc. 

Table 4 shows the results from this 
third benchmark. It should be clear 
from these various figures that FORTH 
is more efficient than BASIC at han- 
dling the kinds of tasks shown here, 
and that RPL is even more efficient 
than FORTH at these types of tasks, by 
perhaps a factor of two overall. 

Other Tradeoffs 

Ease of use is a very important 
criterion in determining the real utility 
of a language. BASIC is the acknowl- 
edged leader in this area, at least as far 
as "quick-and-dirty" programming is 
concerned. One of BASIC'S best quali- 
ties is the interactive nature of its pro- 




TlCjSfi BLOW TOUR BUCKS ON 

Locked-up 
Software. 

Beagle Bros Apple Utilities 

are BACKUPABLE, USEABLE, 

CUSTOMIZABLE and fully 

compatible with normal DOS. 



Alpha Plot 

Hi-Besbraphlcs/Text Utility 
toy Bert Kersey & Jack Casaidy 

Here are Just a few of Alpha, Hot's easy-to-use features. 
Compare price fif functions with others on the market - 
HI-BXS DBAWHSTG: Create pictures and charts 
with text, on both pages of memory, all images are 
appandable to your programs. Optional Xdraw cursor 
(see lines before you draw). Color mixes and Re verse 
(opposite of background). Circles, Boxes, and Ellipses, 
miedor outlined Store hire* In 1/3 disk ipsca. Redraw 
any portion of your picture on either hi-res screen. Also 
linages and convert hi-res to lo-res and 




back for fascinating colorful abstracts! 
HI-BBS TEXT: Beautiful upper fr lower esse with 
descenders (no hardware required). Color or reverse 
characters posltionable anywhere (no vtab/htab restric- 
tions). Attractive proportional spacing with adjustable 
height, leading (line spacing), and kerning (letter 
spacing). Multi-directional typing too for charts! 

D Alpha Plot on Disk (48K min.) 
D Beagle Bros Apple Tip Book *4 
D Peeks, Pokes ft* Pointers Chart 



$3080 

+ 1.50 SHIPPING 



81 Useful Utilit 
by Bert Kersey 

21 programming aids that you can list, customize and 
back-up: List Formatter makes properly spaced and in- 
dented listings with printer page breaks; each statement 
on a new line with if-then' s and loops called out; a great 
de-bugger! Catalog In multiple-columns and any page- 
width to printer or screen. Automatically post run- 
number and last-used DATE in your programs. Write 
invisible functioning commands Into your listings. 
Access program lines in memory for garbage repair and 
"illegal alteration Quickly alphabetize and store Into on 
disk Run any program while another stays In memory. 
Renumber to 65535. Save Inverse, trick and invisible 
file names. Convert decimal to hex fifbinary, or INT to FP. 
Append programs. Dump text to printer... and MORE! 
~ □ gi Programs on disk (48K min) 
D Beagle Bros Apple Tip Book *3 



$89so 



LJ noogjo JJHJO ja*w*t *-» -™~ — — 

D Peeks, Pokes 6* Pointers Chart 



DOS BOSS 

DISK COMMAND EDITOR 

by Bert Kersey & Jack Caasidy 

A classic utility you will ENJOY! Rename commands; For 
e^mple, "Catalog" can be "CAT" or anything Uf^jjgl 
Save-protect your programs: An unauthorized copy at/ 
Sn^^can^cSuce a (fiepl) "NOT COFYABLE" messaga 
^T-protertlontoo andone-keyprogram ^f lectlonfrom 
catalog Catalog customlzer: Change Disk Volume 
message to yoiir title; Omit or alterllle codes Rewrite 
^Tormessaies: "Syntax Error" can be "Oops!" or Disk 
FulT can be^Burpi^or anything! Fascinating educational 
documentation included; Hours of good reading! 

Any or all changes may be appended to your 
programs, so that anyone using your disks 

(hooted or not) on any Apple will he 
formatting DOS the way YOU designed It. 

""" □ Dos Boss on Disk (32K or 48K) 
D Beagle Bros Apple Tip Book *» 
D Peeks, Pokes ft- Pointers Chart 




*84 00 

-1.50 SHIPPING 




ftn Disks Include: our famous 

FI1K8 * POOS Wall Chart, an indispensable tool, 
AND a different Beagle Bros AFFLI IIP BOOK— 

each one a gold mine of tips and Juicy Apple info. 



JSSApplea-f^ 
5S£ Mechanic 

MULTIPLE-UTILITY DISK +n? wok #s*89 



Visit Your Apple Dealer. 

Most Apple Dealers carry our software. If yours 
doesn't, he can get it for you within just a few 
days through BBAOLB BB0S or SOFTSBL. 

OR Order toy Kione; 

84 HourTOLLPREBorderDeik 

Visa, MasterCard or COD' Orders, call; 
Nationwide: 800-884-8003 ext.827 

California: 800-582-1800 ext.827 
Alaska/Hawaii: 800-884-2682 ext.827 

(ORDERS ONLY, PLEASE) XOD add S3 

Or Mail tifl a check cor visa/Mc no. & « P o 

□ Alpha Plot »39.50 D Utility City »89.50 
D Dm Bom »»4.00 D Apple Mechanic *89.50 

Add $1.50 Shipping (any size order; 
and 6% tax If California. MAIL TO: 



BEA0US BROS, Dept M 
4318 Sierra Vista 
San Diego, Ca 92103 

Please add W shipping outside US,' Canada 
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gram debugging facilities: the BASIC 
programmer has the option of halting 
his program at any point so that he can 
examine variables of interest; etc., and 
execution can then be continued from 
where it left off. FORTH has similar 
debugging tools, but their utility is 
blunted somewhat due to the opaque 
nature of the FORTH stacks, not to 
mention the clumsiness of FORTH' s 
editing, source file handling, and so on. 
RPL solves this problem by providing a 
"symbolic debugger" as a separate 
utility program that allows any RPL 
program to be debugged via single- 
stepping, breakpointing, and the like. 
And the entire contents (up to 18 en- 
tries deep) of both the parameter stack 
and the return stack are available for 
viewing at any time. 

"Extensibility," or the ability of 
the language to be augmented by the 
user, is one area in which FORTH 
shines brightly. Two distinct capabil- 
ities of FORTH here are sometimes 
lumped together in reviews of the sub- 
ject. One is that normal FORTH rou- 
tines, once defined, become as though 
part of the language itself. This feature 
is really no different in principle from 
the conventional method of subroutine 
calling used in other languages. The 
other capability is much more intriguing: 
the {< BUILDS} and {DOES>} 
operators give the FORTH user the 
ability to effectively modify the 
FORTH compiler on the fly, so that 
whole new language constructs can be 
created. No other language I know of 
(with the possible exception of Ada) 
has this feature. How desirable this is, 
to many people, remains to be seen: the 
benefits accruing to it must certainly 
be balanced against the code obscurity 
and tendency toward destandardization 
resulting from it. For example, the 
same capability is implemented in 
some FORTH versions as BEGIN... 
IF... WHILE, in some as WHILE... PER- 
FORM... PEND, and in some as 
BEGIN. . .WHILE. . .REPEAT. 



It is in the area of transportability 
that BASIC and FORTH find their 
strongest advantage over RPL. RPL is 
presently available only for the Com- 
modore PET and CBM series of ma- 
chines, whereas BASIC and FORTH 
have both become widespread. Every 
new language, though, goes through a 
period of limited transportability in its 
early stages. If the language really does 
present worthwhile advantages over ex- 
isting languages, it will eventually be 
adapted to run on systems other than 
the one on which it was developed. In 
fact, Samurai Software is now actively 
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Listing 3A 

100 REM ******************************************************************** 

110 REM * BASIC FALLING-TONE BENCHMARK * 

120 REM * ROUTINE AT LINE 1000 GENERATES CB2 TONE WITH EXPONENTIAL PALLOFF * 

130 REM ******************************************************************** 

140 REM 

150 TI$="000000" : FOR I * 1 TO 100 

160 GOSUB 1000 

170 NEXT I : PRINT TI ; "JIFFIES" : END 

1000 POKE 59464,0 : POKE 59467,16 ; POKE 59466,170 

1010 DY=20 : DC=0 

1020 IF DC>=0 THEN 1050 

1030 DY=DY+1 : IF DY=256 THEN 1060 

1040 DC=DC+256 : POKE 59464, DY 

1050 DC=DC-DY : GOTO 1020 

1060 POKE 59467,0 : POKE 59466,0 : RETURN 



Listing 3B 

( **************************************************************** j 

1 { * FORTH FALLING-TONE BENCHMARK * ) 

2 { * THE TONE ROUTINE GENERATES CB2 TONE WITH EXPONENTIAL FALLOFF * ) 

3 ( **************************************************************** ) 

4 

5 : TONE 59464 CI 16 59467 CI 170 59466 CI 

6 20 

7 BEGIN DUP 0< IF 

8 SWAP 1+ 

9 SWAP 256 + OVER 59464 C! THEN OVER 256 < WHILE 

10 OVER ~ REPEAT 

11 DROP DROP 59467 CI 59466 CI ; 

12 : TEST 142 I 101 1 DO 

13 TONE 

14 LOOP 142 @ INT . . n JIFFIES" ; 



Listing 3C 

ioo ******************************************************************** 

110 * RPL FALLING-TONE BENCHMARK * 

120 * ROUTINE AT LINE 1000 GENERATES CB2 TONE WITH EXPONENTIAL FALLOFF * 
130 ******************************************************************** 

140 REM 

150 142 I 100 1 FOR 

160 TONE & 

170 NEXT 142 § INT STRS PRINT " JIFFIES" PRINT STOP 

1000 TONE: 59464 POKE 16 59467 POKE 170 59466 POKE 

1010 20 

1020 LOOP: # < IF 

1030 % 1 + # 256 = IF . . THATSIT GOTO END 

1040 % 256 + ; 59464 POKE END 

1050 ; - LOOP GOTO 

1060 THATSIT: 59467 POKE 59466 POKE RETURN 



Table 3: 


Results from the Shuffler Benchmark 








Program 
Bytes 


Data 
Bytes 


Jiffies 


Figure 
of Merit 


BASIC 

FORTH 

RPL 


179 
117 

70 


367 

54 

52 


48175 

15136 

5321 


23.15 

4.75 
1.00 


Table 4: 


Results from the 


Falling-Tone Benchmark 








Program 
Bytes 


Data 
Bytes 


Jiffies 


Figure 
of Merit 


BASIC 

FORTH 

RPL 


219 

150 

96 


21 





63701 

5764 
4466 


32.54 
2.02 
1.00 



seeking individuals who would be in- 
terested in adapting RPL to the Apple, 
the TRS-80, CP/M, and so on. Would 
you, by any chance, be interested? 



Timothy Stryker may be contacted at 
Samurai Software, P.O. Box 2902, 
Pompano Beach, FL 33062. 
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Target - An AIM 65 Newsletter 

Need information for your AIM 65 
computer? News, software, and 
hardware are examples of items covered 
in the newsletter. Yearly subscription 
rate is $6.00 in the US and Canada, 
SI 2.00 elsewhere. Back issues arc 
available beginning with 1979 at the 
same per year rate. 

Target 

C/O Donald Clem 

RR#2 

Spencerville, OH 45887 

MDM-2 Modem Driver Kit 

Now available in kit form, an 
inexpensive modem driver for the 
VlC-20. This device will drive most 
modems, and some printers without a 
modem. A LED indicates terminal 
activity. Also included is the 
V-TERM-20 terminal program. This 
converts the VIC-20 into a terminal 
allowing you to input ESCAPE, BREAK 
and CONTROL characters. Kit -$31.00. 
Assembled and tested - $37.00. No 
C.O.D. 

RVR Systems 

P.O. Box 265 

Dewitt, NY 13214 



OSI Checkwrlter 65D3.3 C4PMF 

User-defined one-letter code and 
amount to print a complete check 
including "memo" line. Uses "checks- 
to-go" or "Nebs" check systems. Has 
your code and balance always visible in 
a screen window. $19.95 includes disk, 
$4.95 printed listing. Specify check 



R.I. P. Software 
P.O. Box 23 
2228 El Camino Real 
San Mateo, CA 94403 



PET/CBM Operating Systems 3.0 

Matric expands Commodore BASIC 
with 14 new commands for handling 
arrays. Algebraic-style syntax. Checks 
for conformability. Extended error 
messages. Machine language (5K) 
program lets you display a matrix on 
screen and change its values, transfer 
data between matrices or fill a matrix 
with a constant, transpose, transfer 
diagonals between matrices, 
eigenvalues and eigenvectors. Specify 
size and ROM set, tape or disk. 32-page 
manual. Price: S125.00. 

Cognitive Products 

P.O. Box 1658 

Bloomington, IN 47402 



Joystick Interface 

For PET, AIM 65, SYM, KIM or other 
6502-based computer. Uses five VIA 
ports to give eight-bit conversion of up 
to eight resistance, devices. Requires 64 

►5; bare board 
-$12.95. 

Sydney S. Koegler 

Micro-K Computer Products 

23:; C&ui tK- \ C 

Ricl 352 



abra 

s basic 
;ebra. Apple 
' : \9S. 30- day 
money guarantee if not satisfied. 
George Earl 

131 ' IcMullen Dr. 

lo, TX 78237 



Covers 

Keep dv iirt out of your 

equipment with a computer cover. 

■"eovefferi oil Apple $11,50, disk drive' 
$4.25, , £6.25, monitor 

[state si i.5. Send check plus 

SI. 50 postage. 

P.C >96 Encinal Stations 

Sunnyvale, CA 94087 

(Continued on page 92) 



Olympic 

Sales 

A SERVING YOU SINCE 1947 

Comp»y 

Main Showroom & Offices: gggg 

21 6 South Oxford Avenue v/sa 

Los Angeles, CA 90004 ,'_'_ 

WE HONOR WjB 

VISA and MASTERCHARGE [wB 



TELEX: 67 34 77 

ORDER DESKS open 7 Days a Week! 

7:00 AM to 7:00 PM Mon thru Sat 

Sunday Noon to 5:00 PM 

Order Desks: (213) 7391130 

TOLL-FREE TOLL-FREE 

(outside Calif.) (within Calif.) 

800-421 -8045 800-252-2153 



NO ONE UNDERSELLS OLYMPIC SALES 
Write & request our new 1 12 pg catalog- 
please include $1.00 to defray postage & 
handling-includes many more items-from 
TV's to Watches! 



All goods sub/ect to availability; this ad super 

sedes all previous ads; we are not responsible 

for typographical errors; we will meet or beat 

any advertised prices if the competition has 

the goods on hand. 

Minimum shipping and handling $4.95. 

All orders subject to verification and acceptance. 



tcippkz 



We are an authorized servicing Apple dealer for Apple II & III 
Immediate delivery on all models-we carry an enormous inventory 
of Apple products at all limes! 

^AfUf^l ifo*v^ Immediate delivery 

COrnPUWSri6K-32K-48K-64K-Ptus or Integer in stock! 

Lara. Inventory of: NEW, IMPROVED APPLE III 128K VERSION 

Disk with controller DOS 3.3 
Second Dish Drives 
Paseal-Fortran-Cobol languages 
Dow Jones & Quote reporter 
Graphics Tablets 
Visiealc for Apple II & III 
Smarter m 80 column card 
Micromodem II by DC Hayes 
and more. . . 




ATTENTION: Immediate delivery 

WE ALSO CARRY SOFTWARE! 

Personal Software 

Peach Tree Software 

Microsoft 

Micropro 

Innovative 



"vsSSK 




WkTM HEWLETT PACKARD 

mflPM 2 NEW DELUXE CALCS FROM HP! 
^aw-^B Slim, shirt-pocket styling 

NEW! HP-11C 

Advanced Programmable 
Scientific LCO Renit:$130.M 

NEW! HP-12C 

Advanced Programmable 

Financial LCD Retail. $150.00 
HP 125 New Microcomputer 

64K CPU/Terminal/Keyboard 
HP-85 



Your Cost: 
$114.95 



Your Cost: 

$129.95 

Retail your Cost 

3750 00 3195.00 
built-in printer/monitor 

3250.00 2499.00 
HP-83 Microcomputer -built-in monitor 2250.00 1799.00 
HP 2631 B Printer, dot mtrx (ask for optrts) 3950.00 3199.00 
HP8290SA 80 col printer, dot matrix 945.00 755.00 

HP 2601 A Letter quality prter, daisy wheel 3495.00 

HPB2901M Dual master (256KB disk drive) 2500.00 1999.00 
Call us for the lo west prices on 7 disk drives Call us Ca ll us 

HP 41 CV New! 2.2K hytes of memory 325.00 256.00 

Card Reader lor 41 CV 215.00 171.00 

Printer for 41 CV 385.00 294.00 
Quad Ram 95.00 "" " 

Optical Wand lor 41 CV 125.00 

HP 41 C Calculator 250.00 
Memory mod. for 41 C 

HP 97 Pronrmble printer 750.00 

HP 34C Progrmhle scientific 1 50.00 

HP 38C Progrmble business R/E 150.00 
We have the complete line of accessaries, etc. 



99.95 
188.95 

2695 
57995 
117.95 
119.95 



XEROX 

Model 820 1 [S&") 8" $3750.00 

64K COMPUTER & WORD PROCESSOR 

AQ I flW AQ Special discount available to 

i.««r«A Schools & Institutions-Inquire.' 

$2995.00 Required software add'l. 



NEW-FAMOUS CORVUS DISK DRIVES-5, 10. 20 
MEGABYTES with fantastic new OMNINET Network 
Call us for the best prices in the USA! System 



Texas Instruments 



New-1982 Model with Home Computer 

full typewriter -style keyboard, 

TI-99/4A U/L case & more! 

KEYBOARD j ^^ ,, *^^_S950 00 S369.95 

S?CQ95^fe^ ^ 



in* i\c i ounr 

6 369 9 



10" color monitor for 99/4 
32K Exp. mem. module 

Extended Basic, 3 MUST for 

32Kn 



65000 
399.9b 
100.00 



319.95 
314.95 
75.00 



Speech synthesizer 150.00 

We carry a large inventory ot software, & 
accessones Your Cost 

Tl 30-2 LCSStu Slide NEW 18.98 
TI-35SP LCD SCIENTIFIC 2Z.50 
Tl-40 LCDSci/NEW 
Tl 57 Prog. Scientific 
Tl 58C 480 Step. Prog. 
TI-59 960 Step. Prog. 
PC 100C Print/Plot 
LCD Programmer/NEW 



PRINTERS 

• DIABLO (Letter Quality) 
630 R102 bi-directnal/tractors 
164QK109 keyboard, tractors 
630 RO Receive only 
1650K136 keyboard/tractors 

• CENTRONICSdot matrix - 
700 9 Parallel, heavy duty 
704-9 Serial, heavy duty 

737 1 Parallel 
737 3 Serial 
704 11 Parallel 
PI Electrostatic 

• PAPERTIGER 
4G0 

4G0G graphics 
560 

560G graphics 
445 
445G 

EPSON PRINTERS 

MXSD 

Optional Graftrax Chip 80 

MXB0 FT 

MX80 + GRAFTRAX 80 

MX80 FT + GRAFTRAX 80 

MX100 



Retail Your Cost 
2965.00 2699.00 
3072.00 2899.95 
2710.00 2499.95 
3220 00 2999.95 




Large inventory of periphls, access, etc. 



ATA fM Large inventory of 

ATARI Computer 

400 SPECIAL PRICE! 16K 595 00 339.95 

No language inc., opt'l basic, 54.95 

800 1BK Computer 1080 00 759.95 

SPECIAL! 

ATARI 800 48K Computer 1250.00 869.95 



OHIO SCIENTIFIC 

C8PDF-48KRetail:$3495.00Y/C: $3195.00 

• Dual 8" Drives »64 col x 32 line/color 

♦ .7 MIPS FAST! •Many more stnd features 

Fortran & Pascal available 

Many other OS! products -at discounted prices 



146000 1199.95 

1795.00 1599.95 

995.00 799.95 

1045.00 899.95 

1870.00 1695.00 

495 00 189.95 



995.00 


895.00 


1094.00 


969.95 


1295.00 


1099.00 


1394.00 


1195.00 


795.00 


695.00 


894.00 


789.00 


ItHS Retail 


Your Cost 



745.00 
695.00 
795.00 
995.00 



539.95 
95.00 
659.95 
579.95 
689.95 
789.95 



WE ALSO HAVE . . . 

• NOVATION Modems 

CAT 

D CAT 

APPLE CAT Direct connect 



Retail Your Cost 
199.95 159.95 
199.95 159.95 
349 95 314.95 



SANYO MONITORS High resolution 

13" Color (new) high quality 550 00 419.95 

12" Green phosphorous 360 00 259.95 

12" Black & while 340 00 239.95 

15" Black & while 370 00 259.95 

9" Slack & white (the best seller) 235 Q0 169.95 

AMD EK(Leedex) High Quality Monitors 

12"B/W.12MHz 179.00 139.95 

12" Green, 12 MHz 199.00 174.95 

12" Green. 18 MHz 249.00 199.95 

13" Color, NTSC comp. input,449.00 339.96 
audio amp & speaker 

13" Color, RBG input, 999.00 699.95 

hi res graphics, speaker 



100-G 
300G 
Color I 



• HAZELTINE Video Display Terminals 

• SHUGART Disk Drives 

• OECVT100& VT103 

Call us for your DISCOUNTED price TODAY! 



NEW! FromTI-SerieslO Personal Information Terminal Retail 995.00 Your Cost 795.00 
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QUALITY SOFTWARE FOR TRS-80 COLOR AND OSI 



QuaviUiidi; 




ADVENTURES!!! ^ 
For TRS-80 COLOR and OSI. These Ad- 
ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adventures 
are inter-active fantasies. It's like reading 
a book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch.") 

Adventures require 16K on COLOR-80 and 
TRS-80. They sell for $14.95 each. 

ESCAPE FROM MARS 

{by Rodger Otsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen} 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough! 

TREK ADVENTURE (by Bob Retelie) 
This one takes place aboard a familiar star- 
ship. The crew has left for good reasons — 
but they forgot to take you, and now you 
are in deep trouble. 

NEW!! 

CIRCLE WORLD - We got Kzinti and 

puppeteers and problems. Our newest and 

biggest adventure. Requires 12k on OSI and 

16K on TRS-80 Color. 

NUCLEAR SUB - You are trapped in a 

nuclear sub at the bottom of the ocean. 

Escape and even survival is in doubt. Plotted 

by three of the most sadistic — I mean 

"creative" minds in adventure programming. 




-^ass*- 



VENTURER'-A fast action all machine code 
Arcade game that feels like an adventure.. Go 
berserk as you sneak past the DREADED HALL 
MONSTERS to gather treasure in room after 
room, killing the NASTIES as you go. Great 
color, high res graphics, sound and Joystick game 
for the TRS-80 Color or OSI machines, (black 
and white and silent on OSI.} Tape only. $19.95. 

BASIC THAT ZOOOMMSM 

AT LAST AN AFFORDABLE COMPILER FOR 

OSI AND TRS-80 COLOR MACHINES!!! The 

compiler allows you to write your programs in 
easy BASIC and then automatically generates a 
machine code equivalent that runs 50 to 150 
times faster. 

It does have some limitations. It takes at least 
8K of RAM to run the compiler and it does only 
support a subset of BASIC— about 20 commands 
including FOR, NEXT, END, GOSUB, GOTO 
RETURN, END, PRINT, STOP, USR(X), PEEK 
POKE, *,/, + ,-, X , X , = , VARIABLE 
NAMES A-Z, A SUBSCRIPTED VARIABLE 
and INTEGER NUMBERS FROM - 64K. 
TINY COMPILER is written in BASIC. It gener 
ates native, relocatable 6502 or 6809 code. It 
comes with a 20 page manual and can be modi 
fied or augmented by the user. $24.95 on tape 
or disk for OSI or TRS-80 Color. 

LABYRINTH - 16K EXTENDED COLOR 
BASIC — With amazing 3D graphics, you fight 
your way through a maze facing real time mon- 
sters. The graphics are real enough to cause claus- 
trophobia. The most realistic game that I have 
ever seen on either system. $14.95. (8K on OSI) 



PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs the 
widest possible coverage. Quality is the keyword. 
If your program is good and you want it pre- 
sented by the best, send it to Aardvark. 




QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16K COLOR-80 OR TRS-80. ONLY 
$14.95. 





SPACE ZAPPER - Protect your central 
Star Base from ships that attack from all 
four sides. Fast reflexes are required as the 
action speeds up. Great for kids or Dads. 
This game has high speed high resolution 
graphics and looks as if it just stepped out 
of the arcades. — 16K extended or 32K 
disk. BASIC TRS-80. Color only. $14.95. 



&+ 



Please specify system on all orders 
This is only a partial listing of what we have to offer. We have arcade and 
thinking games, utilities and business programs for the OS1 and TRS-80 Color. 
We add new programs every week. Send $1.00 for our complete catalog. 



% 



TRS 80 COLOR 



AARDVARK - 80 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 



OSI 
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PROUDLY PRESENTS: AFFORDABLE 

ATARI® 

SOFTWARE 

RNDRDID ATTACK 



FIGHT YOUE WAY THROUGH LEVELS OF 
DEADLY ANDROID GUARDS TO SAVE THE 
RUNAWAY NUCLEAR REACTOR, THEN TRY 
TO SAVE YOURSELF! 



AAARRrGGG- 1 



A FAST, FRANTIC CHASE AROUND THE 
SCREEN TRYING TO CATCH SOME CRAZY 
CREATURES. IF YOU CATCH THE 
*SUPER-AAARRRGGG!», YOU'LL GET A 
SUPER BONUS, BUT DON'T GET POISONED I 



5TRRBR5E R55RULT 

HOW LONG CAN YOU PROTECT YOUR 
STARBASE FROH THE ATTACKING ALIEN 
ARMADA? EACH HIT WEAKENS YOUR FORCE 
FIELD RINGS AND NOW THEY'RE ATTACKING 
FIVE AT A TIME1 



FOR 16K CASSETTE OR 24K DISK 

♦FAST* ACTION, SUPER GRAPHICS, ONLY $18.95 EACH 

PLEASE ADD $2.00 PER ORDER FOR SHIPPING. 





INTRODUCTORY OFFER: 
MENTION THIS AD AND TAKE 
$1.00 OFF EACH GAME I 



© 



Pretzel land Software 

2005 WHITTAKER 
YPSIL ANTI, MI.48197 



FORTH for Ohio Scientific 

OSI-FGRTH 3.0 is a -full implementation of the FORTH Interest 
Group FORTH, for disk -based OS I systems (CI , C2, C3, C4, CS> 
Running under 0S65D3, it includes a resident text editor and 
6502 assembler. Over 150 pages o-F documentation and a handy 
reference card are provided. Requires 24K (20K C1P) - Eight- 
inch or mini disk *79.95. Manual only, 49.75. "OSI-FORTH 
Letters" software support newsletter *4.00/year. 



Other Software fc 



Ohi 



Scientific Compute 



VIDEO EDITOR 
Video Editor is a powerful full screen editor for disk-based 
C2, C4, C8 systems with the polled keyboard and color video 
boards (b&w monitor ok). Allows full cursoi — control with 
insertion, deletion and duplication of source -For BASIC or 
OSI's Assembler/Editor. Unlike versions written in BASIC, 
this machine-code editor is co-resident with BASIC (or the 
Assembler), autoloading into the highest three pages of RAM 
upon boot. Video Editor also provides single-keystroke 
control of sound, screen format, color and background color. 
Eight-inch or mini disk: S14.95. Specify amount of RAM. 

SOFT FRONT PANEL 
Soft Front Panel is a software single-stepper, slow-stepper 
and debugger-emulator that permits easy development of 6502 
machine code. SFP i^ a fantastic monitor, simultaneously 
displaying all registers, flags, the stack and more. 
Address traps, opcode traps, traps on memory content and on 
port and stack activity are all supported. This is for disk 
systems with polled keyboard and color (b&w monitor ok). 
Uses sound and color capabilities of OSI C2/C4/CB systems 
(not for C1P). Eight-inch or mini disk *24.95. Specify 
amount of RAM. Manual only, *4.95 (May be later credited 
toward software purchase). Six page brochure available free 
upon request. 

TERMINAL CONTROL PROGRAM 
DSI-TCP is a sophisticated Terminal Control Program for 
editing 0S-65D3 files, and for uploading and downloading 
these files to other computers through the CPU board's 
serial port on OSI C2, C4 and CB disk-based systems with 
polled keyboards. Thirteen editor commands allow full 
editing of files, including commands for sending any text 
out the terminal port and saving whatever text comes back. 
INDUTL utility included for converting between BASIC source 
and TCP file text. Eight-inch or mini disk *39.95. Manual 
only, *2.95. 

******* NEW ADDRESS ****** 
WRITE FOR FREE CATALOG! Technical Products Company 

Prices shown are postpaid. P.O. BOX 9053 

Specify computer model & RAM. Boone, NC 28608 
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Tiny PILOT for the PET 



by Jim Strasma and John O'Hare 






This program offers PET owners 
a machine language PILOT, 
based on Nick Vrtis's program 
for the SYM (MICRO 16:41). In 
addition, a few commands have 
been added and PET screen 
editing has been implemented. 

Tiny PILOT 

requires: 

PET 

8K or larger 

O.S. 2.0 

This PET version of PILOT, like its 
parallel program on the SYM, isn't as 
full a PILOT as the version sold by 
Apple Computer Co. However, it is a 
good start, and you can develop it into 
something very impressive, given a bit 
of time. 

If you'd rather not type in this 
lengthy listing, and have either the 
ASM /TED or MAE assembler and a 
CBM disk, contact the ASM/TED 
Users' Group (ATUG) librarian, Brent 
Anderson, for disk 'UE' . If your copy of 
ASM/TED can't read MAE disk files, 
include your ASM/TED serial number 
from the front of your manual as proof 
of purchase, and ask for the disk con- 
taining "MOSER". Write to ATUG at 
200 South Century, Rantoul, IL 61866. 

For the Adventurous 

There is a way to disable the 
"crunch" routine in PET BASIC that 
makes the quotation mark necessary at 
the start of each line of PILOT. Like the 
routine that disables the PET's [stop] 
key, it merely jumps three bytes be- 
yond the usual entry point in BASIC 
when inserting a new line into a pro- 
gram. In BASIC 4.0, the usual entry is 
at $B419 and the needed value is $B41C. 

This technique is used in the Editor 
of CBM's 6502 development program 
disk. But the patch must be initialized 
before beginning work on a PILOT pro- 
gram. With that in mind, you may pre- 
fer to keep using the quote marks. 
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Table T: PET TINY PILOT 

PET TINY PILOT is based on an original program for the SYM computer, by 
Nick Vrtis. The PET conversion and extensions are by John O'Hare, aided by 
Jim Strasma. 



PET TINY PILOT Program Statements 

T:TEXT Display the text on screen 

A: Input up to 40 characters into the answer field 

? : Input up to 40 characters into both the name and answer fields 

TEXT Compare text to last input and set yes/no flag 

J:N Jump to label N for next line 

J: A means jump to last accept 
J:* means restart program 

U:N Use subroutine labeled N 

S: Stop program and return to edit mode 

C: Compute, performs " + ", " -", and " =" on variables "A"-"Z" 

R: Remarks — are not executed 

P:X Put a random number between 1 and 99 in variable "X" 

(Call three times at the start of your program to initialize cor- 
rectly. Otherwise, result may be outside correct range.) 

I:X Input number into variable "X" 

L:F-Z Call machine-language routine 

L:A Clear screen 

L:B Reverse screen foreground and background 

L:C Scroll up 

L:D Scroll down 

L:E Home cursor to top left of screen 

L:F Use machine-language program in second cassette buffer 

address 826) (Do not use "L:G" through "L:Z" as commands. 
They are reserved for future features, and will crash your pro- 
gram if used. ) 

F:U Set to graphic mode (upper-case) 

F:L Set to text mode (lower-case) 

D: Delay about five seconds 

W: Wait for key to be pressed 



Conditionals (May precede any statement. Execution only if condition 
satisfied.) 

Y Execute if match flag = Y 

N Execute if match flag = N (i.e. YT:TEXT, NJ:N) 

Label 

*A Labels current location 'A' 

Variables Causes contents of named variable to be matched or 

within displayed 

Text 



$? 



Same as $X — applies to Name field 
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Notes on TINY PILOT 

Getting It Working 

The interpreter's object code is 
located at addresses $7800 through 
$7F91 hex. This version is for PET or 
CBM computers with BASIC 2.0 
(sometimes called 3.0) only. BASIC 1.0 
and 4.0 versions are feasible, but have 
not yet been attempted. If you wish to 
do the conversion, we recommend get- 
ting a copy of the source code from the 
ASM/TED Users' Group. 

Users with the upgrade BASIC 2.0 
ROMs may either type in PET TINY 
PILOT from the hex listing in this arti- 
cle, or request it on disk from ATUG. 



Writing Programs 

PET TINY PILOT programs are 
keyed in like a BASIC program, but 
each line number must be followed by a 
single quotation mark: 

10 "T:TINY PILOT TEST 
20 "S: 

After loading TINY PILOT from BASIC 
like any other program, enter "new: 



sys32512". This is important! With- 
out the "new", PET will think you are 
out of memory. And without the "sys" 
call, Tiny PILOT will not be protected 
from BASIC. 

Once the TINY PILOT program has 
been loaded and initialized, TINY 
PILOT programs may be loaded, saved, 
edited, and listed just like PET BASIC 
programs, using the usual syntax. They 
may even be written, edited, and saved 
without PET TINY PILOT loaded. To 
run a program, simply type SYS30721. 

Using the Match (M:) Statement 

"M: YE, SURE 
"YES", "YEP' 
LY", but 
"SUROUND" 



2. X LABEL NOT FOUND, where X is 
a TINY PILOT label. 



will match with 
'SURE", and "SURE- 
not with "YA", 
or "NO". 



Example Match Formats: 

M:YES„YA,OK 

M:NO 

M:- (Checks for a negative number) 

PILOT has two special error 
messages: 

1. ERR, with the specific error listed 
here; 



Sample Program 




10 ' 


R: GUESS PROGRAM 




20 ' 


P:R 




50 ' 


T: GUESS MY NUMBER 


(999 TO QUIT) 


40 ' 


*LT:Y0UR GUESS 




50 * 


I:G 




60 * 


C:$=G 




70 ' 


M:999 




80 ' 


YT:0K 




90 ' 


YJ:E 




100 


"C:N=R-G 




110 


"C:$=N 




120 


"C:S=S+1 




130 


"M:0 




140 


"YT-.Y0U GOT IT! 




150 


"YJ:E 




160 


M M:- 




170 


"YT:T0O BIG 




180 


"NT: TOO SMALL 




190 


"T: 




200 


"J:L 




210 


"*ET:IT TOOK $S GUESSES 


220 


"T: 




2 30 


"T:MY NUMBER - $R 




240 


"S: 





Contact Jim Strasma at P.O. Box 647, 
Pawnee, IL 62558. Write to John O'Hare at 
P.O. Box 157, Lemont, IL 60439. 



GOSUB International Inc. presents 

The CARDBOARD for the VIC 20! The CARD- 
BOARD is an expansion motherboard for use with 
Commodore's VIC 20 series computers. It has six 
slots that will accept any VIC-compatable cartridge 
in any configuration. 

Increase RAM up to 40K and use several utility 
ROMs plus have several games online, all switch 
selectable! 

The CARDBOARD can be daisy-chained, giving the 
user an almost unlimited number of available expan- 
sion slots. 

A system reset switch has also been added to the 
CARDBOARD allowing the user to select and/ or 
restart games on ROM without turning off the 
computer. 

All this for only $119.95 plus $1.50 S/H 

To order send check or money order to: 

GOSUB International Inc. 

501 E. Pawnee, Swte 4*0 

WichiTA, Kansas 67211 

(716) 265-9858 

VISA and Master Card phone orders also accepted. 



RPL 




RPL is a fast, space-efficient lang- 
uage, designed for the PET/CBM user who wants to 
develop high-speed, high-quality software with a minimum of effort. 
While ideal for programming games and other personal 
applications, it is primarily oriented toward real-time process 
control, utility programming, and similar demanding business and 
industrial uses. 

R. Vanderbilt Foster, of Video Research Corporation, says he 
thinks that "RPL is one HELL of a system!" (capitals his). Ralph 
Bressler, reviewing the package in The Paper, says "I know of few 
language systems this complete, this well documented, for this kind 
of price." For more information, see the following: 

MICRO, Dec. '81, p. 35 

MICROCOMPUTING, Feb. '82, p. 10 

MICRO, Mar. '82, p. 29 

BYTE, Mar. '82, p. 476 

COMPUTE!, Mar. '82, pp. 45, 120. 
See also the article "Basic, Forth and RPL" in the June '82 
issue of MICRO, and Mr. Bressler's review in the Jan. /Feb. '82 issue 
of The Paper. Don't let our prices deceive you: RPL is a first-class, 
high performance language in every respect. We are keeping its 
price so low in order to make it accessible to the widest possible 
number of users. Only $80.91, postpaid, for both the RPL 
compiler and its associated symbolic debugger, complete with full 
documentation (overseas purchasers please add $5.00 for air mail 
shipping). Versions available for PET-2001 (Original, Upgrade or 
V4.0 ROM's), CBM 4032, and CBM 8032/8096, on cassette, 
2040/4040, and 8050 disk. 

Order Anytime, Day or Samurai Software 
™ A Night 7 Days A Week P.O. Box 2902 

VlbA — . AA **r^*m r\*±*-i~ Pompano Beach, 

Master Charge $00-327-8965 Florida 33062 

American Express (asR fof extension 2 ) (305) 782-9985 
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Tiny PILOT Listing 

7800 EH R9 0© 8D 8R 7D 20 ED 
7808 7B R2 33 A3 08 8D 85 ?D 
7818 3D 42 7D CR 18 Ffl R5 97 
7818 C9 84 D8 03 4C 89 C3 Bl 
7828 38 Bl 88 C9 2R D8 04 C& 
7828 C8 00 EB C9 59 F0 04 C9 
7838 4E D8 12 CD Fl 7C F0 F8 
7838 28 BF 7B RD SR 7D F8 83 
7840 4C 89 C3 B0 Dl 8D 76 7D 
7848 C8 C8 C9 4C D8 14 28 BS 
7858 7C 28 82 7C 8R 4R RR E8 
7858 E8 81 D8 09 28 29 E2 4C 
7860 88 78 4C D3 78 E8 02 D0 
7863 18 R2 88 R8 00 84 28 86 
7878 21 Bl 28 49 88 91 28 C8 
7878 D8 F7 E8 E8 84 D8 F0 F0 
7880 87 E0 83 D8 89 28 3F E5 
7888 28 C8 7C 4C 38 78 E8 04 
7898 08 29 R8 28 84 22 R8 88 
7398 34 28 R8 BF R2 S3 86 21 
73R8 36 23 Bl 28 91 22 38 C8 
78R8 FF D8 F7 CR E8 7F D8 EE 
73B8 R8 27 R9 28 91 28 88 18 



rwfctfci htS sSLt 


UU bW ©D 


ue as 


M9 


73C8 13 28 


D2 FF 4C 


88 78 


E8 j 


78C8 06 D8 


06 20 3fl 


83 40 


88 


7SD8 78 R9 


40 09 58 


08 23 


20 


7808 82 7C 


8E 36 70 


F8 33 


R5 


78E0 55 65 


58 65 53 


85 54 


R2 


78E3 04 B5 


54 95 55 


CR 18 


F9 


78F8 D8 RE 


36 70 9D 


43 70 


40 


73F8 38 78 


C9 49 08 


42 R9 


3F 


7908 20 RR 


70 R9 80 


3D 78 


70 


7988 80 73 


70 20 30 


7C 09 


00 


j 7918 F0 19 


38 E9 30 


R2 04 


18 


791© 8E 79 


70 2E 73 


7D CR 


08 


| 7928 F6 18 


60 79 70 


3D 79 


70 


7923 40 8B 


79 28 82 


70 RO 


78 


7938 70 90 


42 7D RD 


73 70 


3D 


7938 43 70 


28 Rl 70 


40 38 


78 


7940 C9 46 


08 ID Bl 


83 3D 


89 


7943 70 C9 


55 08 08 


R9 80 


3D 


7950 4C ES 


40 38 78 


RD 89 


7D 


7953 C9 4C 


00 F6 R9 


8E 40 


4F 


7960 79 C9 


44 08 0E 


as 00 


85 


7968 8F 85 


8E R5 8E 


09 01 


D0 


7970 FR F8 


DF 09 57 


D0 10 


20 


7978 B6 7C 


20 E4 FF 


09 00 


F0 


7988 F9 20 


CS 70 40 


38 78 


09 


7988 3F 08 


06 38 6E 


76 70 


D0 


7998 8E C9 


41 00 39 


R5 88 


80 


7998 EF 7C 


R5 39 3D 


F8 70 


R3 


79R8 3F 20 


RR 70 R2 


27 28 


80 


79RS 70 C9 


14 00 03 


E8 08 


F6 


79B0 C9 00 


00 02 A3 


88 9D 


F2 


79B8 7C 2C 


76 7D 18 


83 9D 


1R 


79C0 7D C9 


80 F0 03 


CR 10 


OE 


79C8 20 Rl 


70 40 33 


78 09 


43 


7908 F0 03 


40 7D 7R 


20 02 


70 


7908 8E 7C 


7D R9 08 


3D 7R 


70 


79E8 3D 7B 


7D 08 fl2 


2B DO 


59 


79E3 C8 Bl 


88 38 22 


09 2F 


98 


79F0 IE C9 


3R B0 14 


29 8F 


6R 


79F8 6fl 6R 


6R R2 04 


2E 79 


7D 


7R08 2E 78 


70 0R CR 


D0 F6 


F0 


7R88 DF 28 


0R 70 40 


ES 79 


F© 


7R18 flfl RO 


7E 70 09 


2D F0 


16 


7R18 IS RO 


79 70 6D 


7B 70 


SO 


7R28 7B 7D 


RO 78 7D 


60 7R 


70 


7R28 3D 7R 


7D 40 41 


7R 33 


RD 


7R38 7B 7D 


ED 79 7D 


30 7B 


70 


7R38 RD 7R 


70 ED 78 


70 3D 


7R 


7R48 7D D8 


8E 7E 7D 


8R F0 


00 


7R43 38 0R 


R9 88 SD 


78 70 


SD 


7R58 79 70 


F0 94 RE 


7C 7D 


10 


7R58 15 R2 


38 28 80 


70 28 


ID 


7R68 7C R2 


84 BD 7F 


7D 3D 


15 


7R68 7D CR 


18 F7 38 


80 RD 


7B j 


7R78 7D 3D 


43 70 RD 


7R 7D 


3D ; 


7R78 42 70 


40 38 78 


03 4D 


D8 


7R88 57 ©8 


03 R2 27 


Bl 83 


F8 



Tiny PILOT Listing (continued) 




Tiny PILOT Listing (continued) 


7RS8 09 DD F2 ?C D0 08 CS CR 




7D1© 11 11 28 2D 32 2D 32 ID 


7R98 18 F3 R2 59 D8 3D C9 24 




7D1S ID ID ID ID 11 2© 20 32 


7R98 F8 14 09 20 F8 F4 C8 Bl 




702© 20 32 ID ID 11 11 11 11 


7RR8 88 F0 2E C9 2C F8 DB D0 




7028 2© 20 31 2D 31 ID 10 10 


7RR8 F5 RC 77 7D D0 F0 08 8E 




703© ID ID 11 11 11 2© 20 31 


7RB8 70 7D 28 1R 70 RE 7C 7D 




7033 2D 31 ID ID 11 2© 2D 31 


7RBS 8C 77 7D RO 04 B9 7F 7D 




7D48 2D 31 10 ID ID ID ID 10 


7RC0 F© 89 DD F2 70 D© E2 CR 




7043 11 11 11 11 11 11 U 28 


7RC8 8© 18 F2 RC 77 70 CS D0 




705© 2D 31 20 31 ID ID ID ID 


7RD0 B4 R2 4E 8E Fl 7C D© R2 




7D5© ID ID ID 11 11 11 2© 20 


7RDS 09 55 D© IB Bl ©© 4© 2© 




7060 31 20 31 ID ID ID ID 11 


7RE© BF 7B RD SR 7D F8 03 40 




7068 11 11 11 11 11 11 11 2© j 


7RE8 89 03 R5 83 80 84 70 R5 




707© 28 38 28 38 10 ID ID 11 


7RF8 39 30 ©5 70 63 08 86 03 




7D7© 1 1 28 28 38 2© 3© ID ID 


7RF8 4R 08 58 Bl 88 3D 76 70 




7DS0 ID 11 11 11 2© 2© 3© 20 


7B88 09 2R F8 48 09 41 08 8E 




7D88 3© 10 ID ID 11 11 11 11 


7B88 RD EF 70 ©5 S3 RO F8 70 




7D90 11 11 11 11 2© 2© 3© 2© 


7B18 35 39 R© 88 F8 68 2© F8 




7093 3© ID ID ID 10 ID 10 ID 


7B18 7B Bl ©3 09 2R D8 83 C8 




7DR0 ID 11 11 2© 2© 3© 20 3© 


7B28 Bl 88 CD 76 7D F8 28 28 




7DR8 ID 11 11 11 11 11 11 2© 


7B28 BF 7B RD 8R 7D F8 13 RD 




7DB© 2© 3© 2© 3© 10 ID ID ID 


7B38 76 70 28 flfl 70 R8 7F A3 




7DB8 ID 10 ID ID 11 11 11 11 


7B38 7E 28 10 CR 28 Rl 70 40 




700© 11 2© 28 31 28 31 10 ID 


7B48 83 03 B8 05 40 86 78 0© 




7D0S ID ID ID 11 11 11 11 11 


7B48 40 7E 7B 09 53 08 83 40 




7DD8 11 28 28 31 28 31 ID ID 


7B58 ©9 03 09 45 D8 15 RD 35 




7DD8 10 ID 11 11 11 H 11 U 


7B5© 7D F8 14 35 89 RD 84 7D 




7DE© 11 2© 2© 31 2© 31 ID ID 


7B68 85 88 R8 88 R9 88 SD 85 




! 7DE© ID ID ID ID 11 11 11 11 


7B6© 7D F8 13 C9 52 08 03 40 




7DF© 11 2© 28 31 2© 31 ID ID 


7B78 33 73 09 54 F8 85 83 ©8 




7DF© ID 11 2© 2© 31 2© 31 ID 


7B7S 28 07 70 20 89 7B RD 8R 




! 7E0© ID ID ID 10 ID ID 10 11 ! 


7B88 7D F0 03 40 39 03 40 16 




7E©8 11 11 2© 20 32 2© 32 ID 


7BS8 78 Bl 83 F© 2F 09 24 D© 




7E1© ID ID 11 11 11 U 11 11 


7B98 24 08 Bl 88 09 3F F8 18 




7E1S 11 2© 2© 32 2© 32 ID ID 


7B9S 2© 1R 70 R2 ©4 BD 7F 7D 




7E2© 11 11 11 11 11 11 11 11 


7BR© F8 16 28 flfl 70 CR 18 F5 




7E28 28 2© 32 2© 32 ID ID ID 


7BR3 R2 27 BD 1R 7D F8 89 28 




7E38 ID ID ID 11 11 11 U 28 


7BB3 RR 70 CR 18 F5 28 RR 70 




7E3S 2© 32 28 32 ID 11 11 11 


7BB8 08 40 89 7B 28 Rl 7C Bl 




7E48 28 28 32 28 32 ID ID 11 


7BC© 88 F8 84 C3 40 BF 7B 08 




7E48 11 11 11 11 11 28 28 32 


7BC8 Bl 8© CS 11 88 08 86 R3 




7E58 28 32 ID ID ID ID ID ID 


7BD8 81 SD 8R 7D 68 08 C3 C8 i 




7E5S ID ID 11 11 11 11 11 11 


7BDS Bl 3© 03 22 D8 81 0© 33 




7E60 11 28 28 33 23 33 ID 10 


7BE8 18 65 8© 85 ©8 38 82 E6 




7E68 11 11 11 11 11 11 11 28 


7BE8 89 R8 8© 38 68 28 Rl 70 




7E78 28 33 28 33 ID 11 11 11 


7BF8 R8 81 84 88 80 EF 70 R3 




7E78 11 11 28 2© 33 2© 33 ID 


7BFS 84 35 83 3D FS 70 R0 FF 




7ES8 ID ID ID 11 2© 20 33 20 


7008 D© 05 81 S3 3S E3 41 0R 




7ESS 33 ID ID ID ID ID ID ID 


700© RR 6© 2© 82 70 BD 43 7D 




7E9© 11 11 11 11 2© 28 33 2© \ 


7010 SD 79 7D BD 42 70 3D 7© 




7E3S 33 ID ID 11 11 28 2© 34 


701© 7D 6© 2© GR 70 1© 10 R9 




7ER8 28 34 ID 11 11 11 11 2© 


702© 2D 80 83 7D F8 33 R3 ©0 




7ERS 28 34 28 34 ID ID ID ID I 


7028 ED 73 7D 80 73 7D R9 ©© 




7EB8 11 11 11 11 11 11 2© 28 


703© ED 78 7D 8D 7© 7D DS R2 




7EBS 34 28 34 ID ID ID ID ID 


7038 ©3 0© ©2 R2 ©4 13 6E 70 




7EC8 11 11 11 11 2© 2© 34 2© 


7040 70 RO 78 70 2© 63 70 RD 




7ECS 34 ID ID ID ID ID ID ID 


7C4S 79 70 4R 4R 4R 4R 28 63 




7ED© ID 11 28 28 35 28 35 ID 


705© 70 RO 79 70 20 63 70 2C 




7ED8 ID ID 11 11 11 11 11 28 


7C5S 70 70 3© ©1 CR R3 ©8 3D 




7EE8 28 35 28 35 ID ID ID ID ! 


7C6© 7F 7D 60 23 ©F 83 30 3D 




7EES ID ID 11 28 2© 35 28 35 


7C6S 7F 7D 2C 7D 7D 38 85 09 




7EF© ID 11 28 28 35 28 35 ID 


7078 38 D8 81 68 3© 6E 7D 7D 




7EF8 ID ID ID 11 11 11 11 11 


7073 CR 6© 03 83 08 83 40 89 




7F08 R3 40 85 7© R3 23 85 71 


7088 C3 03 93 D8 22 R9 3E 28 j 




7F88 R3 7F 85 72 R3 78 85 35 


70S© flfl 70 R8 88 28 B6 70 28 




7F1© 06 35 fl© 7F R3 46 2© 10 


7098 E4 FF 20 D2 FF SD 89 7D 




7F18 CR R2 ©8 85 53 18 82 43 


7098 2© CS 70 03 8© F© ED D© 




7F28 8© 35 53 E8 E8 87 D8 F3 


7CR© 03 2© B6 70 2© E2 09 40 




7F28 68 E6 77 D8 ©2 E6 78 8C 


70R8 03 7C 2© B6 70 2© D2 FF 




7F38 ©7 7D fl© 88 Bl 77 RC 87 


7CB© 3D S3 70 40 CS 7C 80 87 




7F33 7D 09 SR F8 83 4C 76 88 


7CB8 70 SE 86 7D SD S3 70 ©8 




7F4© 28 ©1 7© 4C 83 03 33 23 


70C© 68 SD S3 70 RD 83 7D 68 




7F48 23 23 28 58 45 54 28 5© 


7CCS RO 87 70 RE S6 70 RD 88 




7F5© 49 4C 4F 54 28 23 23 23 


7008 7D 48 RO 89 70 23 6© R9 




7F58 ©D 80 2© 42 53 2D 2© 4R 


7CD8 45 28 RR 70 R9 52 2© RR 




7F6© 4F 48 4E 2© 4F 27 48 41 


70E8 7C 28 RR 70 R9 2D 28 RR 




7F6S 52 45 ©0 ©D 2© 41 4E 44 


7CES 70 R9 81 80 8R 7D 68 ID 




7F7© 2© 4fl 43 4D 2© 53 54 52 


70F© ID ID 11 2© 2D 32 20 32 j 




7F78 41 53 40 41 ©DO© 28 40 


7CF3 ID ID ID ID ID ID 11 11 




7F88 41 42 45 40 2© 4E 4F 54 


700© 2© 2D 32 20 32 10 ID ID 




7F88 2© 46 4F 55 4E 44 3F ©6 


7003 ID ID 11 11 11 11 11 11 




7F98 11 RR flfl flfl RR flfl flfl Rfl 
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NIBBLE IS TERRIFIC 

(For Your Apple) 




NIBBLE 18: The Reference for Apple computing! 

NIBBLE IS: One of the Fastest Growing Magazines in 
the Personal Computing Field. 

NIBBLE IS: Providing Comprehensive, Useful and 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 

the Advanced Programmer. 
Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 



- "Certainly the best magazine on the Apple II" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I ve 
subscribed to!" 

- "Impressed with the quality and content" 

- "NIBBLE IS TER RIFIC!" 

In coming issues, look for: 

□ Stocks and Commodities Charting D Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 

□ Personal Investment Analysis □ Electronic Secretary for Time Management 

□ The GIZMO Business Simulation Game 



And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a I 



NOTE: 

— Domestic U.S. First Class subscription rate is $36.50 

— Canada Air Mail subscription rate is $42.50 

— Outside (he U.S. and Canada Air mail subscription rate is $47.50 

All payments must be in U.S. funds drawn on a U.S. bank. 

©1980 by MICRO-SPARC. INC. Lincoln. Mass. 01773. All rights reserved 
•Apple is a registered trademark of Apple Computer Company. 



nibble 



We accept Master Charge & Visa 
Box 325, Lincoln, MA. 01773 (617) 259-9710 

I'll try nibble! 

Enclosed is my $19.95 (for 8 issues) Price effective Jan. 1, 198Z 
(Outside U.S., see special note on this page.) 

□ check □ money order 

Your subscription will begin with the next issue published after receipt of your 
check/money order. 



Card# _ 
Signature 

Name 

Address _ 

City 

State 



Expires 



-Zip 
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Microcomputer Interfacing: 
FORTH vs. BASIC 



by Mark Bernstein 



BASIC and FORTH versions of 
programs to control a digitizer 
interface are compared line by 
line. The FORTH versions are 
not only faster and more space- 
efficient, but they are also 
easier to understand. 

The routines, as written, require: 

PET (all versions) with FORTH 

Houston Instruments 'HIPAD' 

Digitizer 

However, with slight 

modification, the program will 

run on any computer with a 

parallel port. 

FORTH, widely considered an unusual 
and peculiar language, is not difficult to 
learn. FORTH interpreters are available 
for all major personal computers and, 
since FORTH is easy to implement, 
these interpreters are usually inexpen- 
sive. FORTH programs run substantially 
faster than programs written in micro- 
computer BASIC, making the language 
especially attractive for system pro- 
gramming and language implementation. 

Critics object that FORTH pro- 
grams are difficult to understand or 
modify. It has been called a write-only 
language, unsuitable for significant 
programming tasks. 

If FORTH programs were especially 
difficult to read, FORTH' s usefulness 
in most applications would be ques- 
tionable. Careful and considerate pro- 
gramming, however, can produce 
FORTH programs that are more legible 
than their BASIC /assembly language 
equivalents. Indeed, many FORTH pro- 
grams are easier to debug and modify 
than their BASIC kindred. 

To demonstrate a typical FORTH 
application, we will discuss an inter- 
face between a Commodore PET com- 
puter and a Houston Instruments HI- 
PAD digitizer (figure 1). (Editor's Note: 
PET and AIM interfaces to Summa- 



graphics' BIT PAD and BIT PAD ONE 
were discussed in the July, 1 981 issue 
of MICRO.) This popular and inexpen- 
sive device allows an operator to 
transfer information from pictures, 
drawings, charts, or photographs to a 
small computer. To use the digitizer, 
the operator simply places the 
digitizer's pointer at any point of the 
pad's 11" x 11" active area. A built-in 
8748 microcomputer measures the 
pointer's position, converts it into 
either inches or millimeters, and trans- 
mits the pointer's coordinates to the 
master computer. 

Scientists and engineers use the 
digitizer to translate charts and spectra 
into computer-readable form. Designers 
and planners can use digitizers to make 
and revise graphics, plans, and 
diagrams. Since digitizers are durable 
and easy to understand, they are 
popular in schools. Digitizers may be 
especially important to handicapped 
people, making computers accessible 
to those who cannot conveniently use a 
keyboard. 



Details of the PET-HIP AD interface 
are covered under ' 'The Digitizer Inter- 
face" on page 84. 

Initializing the Input Port 

The computer' s first task is the pro- 
per initialization of the PET's user port. 
The VIA is a complicated device; we 
won't attempt to explain all its func- 
tions and capabilities here. To properly 
initialize the VIA for this task, we must 
perform the following steps: 

1. Define Port A as an input port by 
storing the value 00 in the data direc- 
tion register. 

2. Set CB2 (ACK) low by storing the 
binary value 1 10 in bits five to seven 
of the control register. 

3. Request that the port observe the 
digitizer's STROBE signal, and 
report low-to-high transitions. To re- 
quest this function, we set bit zero of 
the control register to one. 

(Continued on page 79} 
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The Digitizer Interface 

Houston Instruments designed the HIP AD to be com- 
patible with several different types of interfaces. 
"Parallel binary with handshaking" is the fastest option 
available, and allows us to connect the digitizer directly 
to the PET's parallel user port via the cable specified in 
figure A. Any other computer with a VIA could be used. 

Each time the digitizer makes a measurement, it 
sends a coordinate pair (X,Y) to the computer using the 
protocol - 

transmitted in five individual bytes. The first byte 
declares the start of a transmission and identifies the 
pad's present operating mode. Bytes two and three con- 
tain the measured X coordinate and bytes four and five 
contain the measured Y coordinate. 

The computer can identify the initial control byte 
(byte one) since only this first byte has its most signifi- 
cant bit set to 1. If the computer tries to start listening to 
the digitizer in the middle of a transmission, an unex- 
pected control byte will warn it of its mistake. 

Two handshake control signals regulate the transfer 
of each byte from the digitizer to the computer (figure C) 
When tV dUicizer ^Rno w j-ctkj d hvtt? to the computer, 
it transmits a pulse over the (normally low) STROBE 
line. The computer reaDorus in turn by sending a paise 
over the (normally low) ACK (ACKNOWLEDGE) line. 

The digitizer transmits a STROBE pulse to tell the 
computer that new data are ready and waiting at the in- 
put port. The computer responds by sending an ACK 
pulse, which tells the digitizer the computer has read the 

data sent and is re.-:. 

The PET's user port, a 6522 Versatile Interface 
Adapter (VIA) is programmed by storing numbers into its 
sixteen control registers (table 1). The digitizer's 
STROBE signal is connected to the PET's CA1 input, 
which we program to set a flag bit in the port's interrupt 
flag register whenever it observes an active transition 
from low- to-high. The digitizer's eight data lines are con- 
nected to the VIA's Port A, and may be read by examining 
the contents of the port's data register. Finally, the PET's 
CB2 output generates the ACK pulse to acknowledge a 
succ. ix. 

The digitizer's timing specifications require that the 
ACK signal's duration be between 20 and 50 micro- 
seconds. We generate this signal by using the VIA's shift 
register. To send an ACK pulse, we store the binary value 
1000 0000 into the shift register. The shift register's 
timer is then set to shift a new bit out on CB2 every 40 
microseconds. The shift register begins with the left- 
most [lib. 

40 microseconds later, it sends the next bit, a pulse. 
After another 40 microseconds, the computer sends the 
next bit, also a 0. The process continues until all eight 
bits have been sent, at which point the operation stops. 
The entire operation thus sends a single 40-microsecond 
pulse on the CB2 (ACK) line (figure D). 

Since the VIA shift register operates autonomously, 
the PET is free to perform other computations while the 
ACK pulse is sent. The length of the ACK pulse, more- 
over, is not in any way affected by the language used to 
implement the interface, but is determined only by the 
value stored in the VIA timer register. 



Figure A: PET to HIPAD Interface 
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Figure B: Transmission Sequence 
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Figure C: Control Signal Timing 
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Table 1: The PET computer's user I/O port is controlled by storing values into six- 
teen men igh\ 
registers used by the digitizer interface are described above. 


. ■■ Address 


Name 


Purpose 


E841 


data register 


Data from the digitizer appear here. 


E843 


data direction 
register 


Specifies whether each bit of the data 
register is to be an input or an output bit. 
Each bit is configured as an input (set to 
zero). 


E84A 


shift register 


CB2 (ACK) output are stored here. 


E848 


timer #2 
low- order 


The rac-: .' wSi- ,< -| - -s _; -—,-.. i 


E849 


timer #2 
high- order 


Tin: : I- : pec f a .inelv;l n . . . em 

Writing to this register starts the shift 
register. 


E84B 


auxiliary 
control 


Setting bit of this register enables 
inputs to he dats regis si 


E84C 


control 
register 


Various bits in this register specify the 



E84D 



.interrupt ■ 

flag 

register 



outputs. For the digitizer interface, we 
must configure CA1 (STROBE) and CB2 

(ACK). 

When the digitizer transmits a STROBE 
pulse, the port automatically sets bit 1 
of this register to 1. Reading data from the 

* ^ i ,: . -- i ' . f _ >. j "7- . 

fci' 1 siidic-^' --, vvlji- ,'!.-•■: -ic-v arts from the 



high-order byte. This last step auto- 
matically begins the transmission 
sequence; no further intervention is 
required. 

Routines to create the ACK pulse 
are shown in listing 2. Once more, the 
FORTH program is at least as clear as 
the BASIC code. In FORTH, we define 
several new constants for various VIA 
addresses, including SHIFT-REG, 
TIMER-LO, and TIMER-HI. We also 
define the variable ACK-TIME, which 
specifies the duration of the ACK pulse. 
Clearly, "ACK-TIME' ' is better than 
AT — its BASIC equivalent — just as 
SHIFT-REG is better than either SR or 
VI + 8. ACK! is more suggestive than 

GOSUB 1500: REM SEND ACK PULSE 

The STROBE Signal 

The digitizer transmits a STROBE 
pulse to indicate that data are available 
and ready to be read. The STROBE 
signal is connected to the PET's CA1 
input which, in turn, controls a flag bit 
in the VIA interrupt flag register. If the 
computer is waiting for data from the 
digitizer, it simply needs to wait for the 
appropriate interrupt flag. When the 
flag is set, and only then, the computer 
may read a data byte from the data 
register. 

FORTH and BASIC routines that 
wait for the STROBE signal are given in 
listing 3. The two languages handle 
this task in similar ways, producing 






(Continued from page 77) 

4. Activate the input port by writing a 
one to bit zero of the auxiliary con- 
trol register. 

Simple subprograms in FORTH and 
BASIC that perform these tasks are 
given in listing 1 . In BASIC, we define 
the constant VI for the base address of 
the VIA, and must be careful that this 
value is never changed. In FORTH, we 
can define fixed and unchangeable CON- 
STANTS, which cannot be changed at 
some other point in the program. 
FORTH, moreover, can handle names 
of up to 31 characters, helping to clarify 
the program. CTRL-REG is clearly 
more suggestive than VI +12, just as 
the FORTH command VIA-SET is 
cleaner than the BASIC equivalent 

GOSUB 1000 : REM INITIALIZE VIA 

Notice, too, that FORTH moves 
easily between different numerical 
bases. By allowing programmers to ex- 
press themselves in binary, hex, or oc- 
tal when appropriate, FORTH makes 
programs easier to decipher and debug. 
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Sending the ACK Signal 

Next we turn to the task of 
generating the ACK signal. As discussed 
above, we use the VIA's shift register to 
produce a 40-microsecond pulse. To 
generate this pulse, we must perform 
the following steps: 

1. Enable the shift register. Set it to 
transfer one bit every time the VIA's 
Timer #2 reaches zero, by setting 
bits two and four of the VIA aux- 
iliary control register. Recall that bit 
zero was set to one by the VIA in- 
itialization routine; the auxiliary 
control register should now contain 
the binary value of 0001 0101. 

2. Store the binary value 1000 0000 in- 
to the shift register. 

3. Set Timer #2 to shift one bit onto the 
CB2 output every 40 microseconds 
by storing a decimal 20 (one-half the 
number of microseconds) into the 
Timer #2 low-order byte, and then 
storing a zero into the Timer #2 
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Figure D: Timing of the ACK Pulse 
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similar programs. The FORTH pro- 
gram's structure is clearer, since its 
BEGIN... UNTIL structure eliminates 
the need for an undesireable GOTO. 
However, the BASIC program specifies 
more clearly the conditions for ter- 
minating the process. 

Reading Bytes 

Next we combine these routines to 
read data bytes from the digitizer. To 
read any byte, the computer must first 
await the digitizer's STROBE pulse. It 
then reads a byte from the data register 
and acknowledges receipt by sending 
out an ACK pulse. 

Listing 4 shows BASIC and FORTH 
routines to read bytes from the 
digitizer. The first routine reads a 
single byte from the digitizer. The sec- 
ond routine hunts for the start of a 
digitizer transmission, reading (and 
discarding) data until it finds a control 
byte. The third routine uses these two 
subroutines to read an entire transmis- 
sion, including one control byte and 
four data bytes. 

Note that the FORTH versions are 
substantially more concise. SYNC's 
BEGIN... UNTIL loop is quite clear; 
SYNC explicitly waits until it finds a 
control byte. PAD®, which reads an 
entire five-byte transmission from the 
HIPAD, uses FORTH's DO.. ; LOOP 
structure, equivalent to BASIC'S FOR 
...NEXT loop: 



BASIC 

FOR 1=1 TO 4 

NEXT I 



FORTH 

5 1 DO 

LOOP 



Listing T: Initializing the VIA input port. 



The Digitizer Device Driver 

In listing 5, we finally come to the 
routine that connects the user's pro- 
grams with the digitizer interface. Call- 
ing this subroutine reads one point 
from the digitizer, storing the coor- 
dinates in the variables X% and Y%. 

Here, for the first time, BASIC is 
clearer than FORTH. Only in this 
routine does FORTH's Reverse Polish 
Notation cause any real obscurity; for- 
tunately, the problem is not very 
serious. The FORTH phrase 

HEX 

80 * + 

is simply equivalent to the BASIC 
( )*128 + ( ) 



HEX ( VIA ADDRESSES) 
E843 CONSTANT DIR-REG 
E84C CONSTANT CONTROL-REG 
E841 CONSTANT DATA- REG 
E84B CONSTANT AUX-REG 

( INITIALIZE VIA ) 

BINARY 

: VIA-SET 

00000000 DIR-REG C! 
11001101 CTRL-REG CI 

00000001 AUX-REG C! ; 



B_AS_I£ 

1000 REM === VIA INITIALIZATION 

1010 VI=59456 :REM VIA BASE ADDRESS 



1020 POKE VI+3,0 : REM DATA DIRECTION 
1030 POKE VI+12,205 : REM CONTROL REG 
1040 POKE VI+11,1 : REM AUX. REG 
RETURN 



Listing 2: Using the VIA's shift register to transmit a 40 usee ACK pulse. 



KlRTJl 
HEX 

( ADDITIONAL VIA REGISTERS) 
E84D CONSTANT IRQ-REG 
E848 CONSTANT TIMER-LO 
E849 CONSTANT TIMER-HI 
E84A CONSTANT SHIFT-REG 
DECIMAL __ 

20 VARIABLE ACK-TIME ( 40 USEC) 
HEX 
ACK I 

15 AUX-REG C! 

80 SHIFT-REG CI 

ACK-TIME C@ TIMER-LO CI 

TIMER-HI C! ; 



BASIC 

1500 REM == 



TRANSMIT ACK SIGNAL 



1510 AT=20 : REM 40 USEC 



1520 POKE VI+11, 21 t REM AUX REG. 
1530 POKE VI+10, 128 ; REM SHIFT REG 
1540 POKE VI+8, AT : REM SET TIMER 
1550 POKE VI+9,0 : REM START PULSE 



Listing 3: BASIC and FORTH routines to await data from the digitizer. 

g°™ 2000 REM = = = WAIT FOR STROBE 

K E * BIT x QF j 2010 REM STROBE SETS BIT 1 OF 

< IRQ FLAG TeGI^ER ? 2020 REM IRQ FLAG REGISTER 

2030 REM 
2 CONSTANT STROBE-FLAG 2040 SF=2 



AWAIT 
BEGIN 

IRQ-REG C@ STROBE-FLAG AND 
UNTIL ; 



2060 Al = PEEK (VI+13) AND SF 
2070 IF A1=0 THEN GOTO 2060 
2080 RETURN 



Listing 4: Three subroutines to read data from the digitizer. The j|^ ™ ds * 
sinale bvte of a multiple-byte transmission. The second reads bytes from the 
dSitlU^carSlIS fall until it finds a control byte. The third uses the other two to 
read a complete 5-byte transmission. 

FORTH £A£I£ 

*P* rH t rytf ) 2500 REM ===FETCH 1 BYTE 

rplna AWATT 2510 GOSUB 2000 : REM WAIT FOR STROBE 

! DA^A REG @ 2520 BY=PEEK(VI + 1) : REM READ DATA 

^TA-REG CS 253Q G0SuB 150Q . REM TRANSMIT A CK 

ACK * '* 2540 RETURN 



( WAIT FOR CONTROL BYTE) 
: SYNC BEGIN 

CPAD @ 

80 AND UNTIL ; 

( READ 5-BYTE TRANSMISSION ) 
: PAD@ SYNC 

4 DO 
CPAD @ 

LOOP ; 



3000 REM === WAIT FOR CONTROL BYTE 

3010 GOSUB 2500 : REM READ A BYTE 

3020 IF (BY AND 128) =0 THEN GOTO 3010 

3030 RETURN 

3500 REM ===READ 5-BYTE TRANSMISSION 

3510 GOSUB 3000 : REM GET FIRST BYTE 

3520 FOR 1=1 TO 4 

3530 GOSUB 2500 

3540 BY(I)=BY 

3550 NEXT I 

3560 RETURN 



Listing 5: The master digitizer control routine. Users invoke this routine each time 
they want to read data from the digitizer. 

FORTH EAS_1£ 

HEX 

VARIABLE X 

VARIABLE Y 



POINT? 
VIA-SET 
PAD@ 

SWAP 80 * + Y 
SWAP 80 * + X 



4000 REM === DIGITIZER DEVICE DRIVER 

4010 GOSUB 1000 : REM INITIALIZE 

4020 GOSUB 3500 : REM GET DATA 

4030 Y%=BY(3)*128+BY(4) 

4040 X%=128*BY(1)+BY(2) 

4050 RETURN ^ 
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That is, the first (leftmost) item is 
multiplied by V , then added to the sec- 
ond (rightmost) item. This procedure, 
repeated for both coordinates, reduces 
the coordinates to standard 16-bit 
integers. 

Performance 

When we compare the BASIC and 
FORTH routines in listings 1-5, we find 
the BASIC listings are not substantially 
easier to read or interpret. At times, it 
is true, the BASIC text conforms more 
closely to our expectations or to con- 
ventional notation, but elsewhere the 
FORTH text is clearer and more direct. 
The FORTH text is sometimes longer, 
since it explicitly declares constants, 
but these declarations substantially im- 
prove program clarity. 

If all comments were removed, the 
BASIC program would be terribly dif- 
ficult to understand. The FORTH pro- 
gram is fairly easy to interpret without 
comments. We know, for example, 
that VIA-SET must have something to 
do with setting up a VIA port, that 
ACK! must send or transmit something 
called ACK, and that AWAIT waits for 
something. GOSUB 1000, GOSUB 
1500, and GOSUB 2000 are far less 
revealing! 

Moreover, FORTH (unlike BASIC) 
does not discourage generous use of 
comments within the program. FORTH 
comments take no extra memory 
space, and don't require any execution 
time in the finished program. 

The BASIC program can accept a 
point roughly every 150 milliseconds; 
the FORTH program can accept a point 
every ten milliseconds — the max- 
imum speed at which the digitizer 
operates. The BASIC routines occupy 
903 bytes; the FORTH routines occupy 
only 385 bytes. The FORTH routine is 
half the size of its BASIC equivalent, 
and runs almost 15 times faster! 

Using FORTH 

with Other Languages 

This demonstration dramatically il- 
lustrates FORTH' s superiority for con- 
trolling common devices. The FORTH 
code is not only faster and smaller, but 
it is probably easier to understand. 

However, even this small example 
demonstrates FORTH' s weakness; 
FORTH' s Reverse Polish Notation can 
make algebraic expressions very 
obscure indeed. RPN can be very 
powerful; after all, many people prefer 



Hewlett Packard calculators. Never- 
theless, few people would argue that 

452 1 + * /. 

is clearer or more easily understood 
than 



PRINT 



( (1 + 2) * 5 ) , 



An excellent answer to this defi- 
ciency is to implement an algebraic 
language (such as BASIC or Pascal) in 
FORTH. A subset of Pascal is, in fact, 
already available. This compiler con- 
verts source text into FORTH-like ob- 
ject code, interpretable by FORTH' s ef- 
ficient inner interpreter. Since the 
language produces the same output as 
FORTH itself, FORTH and Pascal pro- 
grams are free to call each other. Con- 
trol and interface tasks can be handled 
in FORTH, while mathematical and 
algebraic problems can be handled 
using the more sophisticated Pascal 
parser. 

For the coming decade or so, micro- 
computer users must continue to en- 
dure a shortage of computer power. 
Eventually, personal computers will be 
fast enough and have enough memory to 



exceed most people's needs, but that 
time is not here yet. For the present, 
small computers need efficient pro- 
gramming systems and languages with 
legible source code that produces fast, 
concise programs. While this computer 
power shortage endures, FORTH and its 
derivatives offer a promising solution. 

FORTH for PET is available from 

AB Computers 
252 Bethlehem Pike 
Comar, PA 18915 

FSS 

1903 Rio Grande 

Austin, TX 78705 

Microtech 
P.O. Box 102 
Langhome, PA 19047 

For more information on 
FORTH, see MICRO'S FORTH 
Feature in the February, 1982 issue. 

Contact the authors at the Department of 
Chemistry, Harvard University, 12 Oxford 
St., Cambridge, MA 02138. 

JMCftO 



OHIO SCIENTIFIC 

THE WIZARD'S CITY - 

search for gold in the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest. A dynamic adventure 
allowing progress in strength 
and experience. All OSI — 
cassette $12.95, disk $15.95. 

OSI HARDWARE 15% OFF 
RETAIL PRICES! 

GALACTIC EMPIRE - a strat- 
egy game of interstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
C8P cassette $12.95, disk 
$15.95. 

AIR TRAFFIC ADVENTURE- 
a real time air traffic simula- 
tion. C4P, C8P disks $15.95. 
Plus S-FORTH, PACKMAN, 
CRAZY BOMBER, ADVEN- 
TURE, TOUCH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions. 
(312)259-3150 

Aurora Software Associates 

37 S.Mitchell 

Arlington Heights 

Illinois 60005 



THE TRIANGULAT0R 

Solve triangles on your Apple* 
and get rid of your calculator 
and pencil!! 

This program will solve any right or oblique 
triangle. Results can be printed or used on 
further calculations. Previous results are 
recalled with a simple letter/number pair and 
can be added or subtracted from each other or 
from new data. For example, the height of the 
triangle below is calculated as follows: 

A? A? 

B? B?B1 

C? 0?Q1 

D?Z"13/16 E 1.5546 $S 

E?1"15/16 F? 
F?3.5 

Entry can be fraction, decimal, or QMS. 
Results are rounded to 4 places. Requires 48k 
Apple Ik DOS 3.2 or 3.3, parallel printer. 

Send $39.95 + SI. 50 postage and handling to: 

Arrow Data Systems 
1224E. Harmont 
Phoenix, AZ 85020 

'Apple is a registered trademark of Apple 
Computer, Inc. 

Dealer inquires invited. (602) 997-6638 
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Write for MICRO! 



MICRO Magazine is actively seeking articles to present to our unique 
audience of sophisticated computerists. We welcome contributions on 
any aspect of 6502/6809 hardware and software. And send us your 
latest ready-to-key-in program! 



Each issue of MICRO presents articles on a wide range of systems and 
topics. In addition, each issue includes a special feature. Our Editorial 
Schedule for the rest of 1982 is shown below. Please send 



material for: 

September 
October 
November 
December 



68000 
Education 
Atari & Games 
PET 



to: 

Marjorie Morse 
Marjorie Morse 
Mary Ann Curtis 
Loren Wright 



no later than: 

June 11 
July 9 
August 6 
September 10 



Standard MICRO categories that may be included in any issue are: 

I/O • BASIC Aids • Machine Language Aids • Graphics 

Games • Applications • Programming Techniques • Utilities 

Programming Languages • Hardware 



Anyone who is interested in writing about networking or online database 
searching should contact Laurence Kepple, Senior Editor, either at 
MICRO (617/256-5515) or at 71535,231 on the CompuServe network. 



Special Note to all MICRO authors: please begin sending your text as well as your 
programs in machine-readable format. This will enable us to edit the text with the 
help of word processing. Continue to include a printed text version as you include a 
printed program listing. 
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Short Subjects 



Apple Disk Drive Repair 
Horizontally Scrolled Messages 
Breakpoint Utility for OSI C1 P 



by Patrick Schwab 

by Chris Williams 

by John Seybold 









Apple Disk Drive 
Repair — Do It Yourself? 

Patrick Schwab, 805 Valleywood Dr. 
S.E., Salem, Oregon 97306 



If you've ever plugged your disk drive 
in wrong, take heart. Except for the 
noise and smoke, there is remarkably 
little damage. In fact ; if you took your 
drive into your Apple dealer he would 
only charge you the minimum service 
charge. What magic does he perform to 
resurrect a burnt out disk drive? 

Actually, only one chip, the Tri- 
State Buffer, has been damaged and it's 
easy to get at. You can remove the IC 
with the IC puller from your 3.3 DOS 
upgrade kit. The damage to that chip 
can be extensive. The crater caused by 
the melting IC is reminiscent of Mt. St. 
Helens. Even if you do not see any ap- 
parent evidence, you can be assured 
your chip has suffered damage. For 
$1.50 from your Apple dealer, you can 
replace the 74LS125N. 



Replacing the 74LS125N 

1 . Make sure the computer is off. 

2. Touch the power supply to dis- 
charge any static electricity. 

3. Unplug the drive from the con- 
troller card. 

4. Turn the drive upside down. 

5. Remove the four black screws on 
the bottom of the drive. 

6. Turn drive rightside up. 

7. Slide the drive cover back and 
remove it. 

8. Locate IC chip #74LS125N — refer 
to drawing below. 

9. Use IC puller to lift the chip 
straight up. 

10. Insert the new chip with writing as 
in drawing. 

11. Slide the cover back over the drive. 



Schwab Figure: 

IC Chip 74LS1 25N is shown on circuit board in the left center of drawing. 
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12. Check the cable to make sure it is 
not pinched or twisted. 

13. Turn the drive upside down. 

14. Replace the screws. 

15. Plug the drive back on the card. 
Make sure you do not off-set the 
plug to the second row of pins; if 
you do, go to step 1. 

Horizontally Scrolled 
Messages 

Chris Williams, 5676 S. Meadow La. 
#101, Ogden, Utah 84403 



Horizontally scrolled ("ticker-tape") 
messages capture and hold the interest 
of onlookers. Any good marketing pro- 
fessional will tell you that getting the 
attention of a consumer is over half the 
job of selling. 

Here is a program that will scroll a 
user-defined message across the screen 
at a user-defined rate. It's written in 
Applesoft and will run without crowd- 
ing in a 16K machine. The total num- 
ber of characters (including trailing 
periods) allowed in the message is 256 
in each of the two DATA statements 
for a total of 512. 

The two DATA statements at lines 
45 and 55 are the source of the message 
and can be changed. Line 85 is the in- 
ternal delay loop; changing its index's 
maximum value (currently 60) will 
vary the scrolling speed. 

The heart of the program is in the 
rest of the "I" loop. Both the HTAB 
and MID$ commands print out the cor- 
rect number of characters from the 
string at a decrementing horizontal cur- 
sor location, while incrementing the 
character number within the string 
where printing begins. These three 
simultaneous selections result in the 
right- to-left horizontal scrolling effect. 

You can use the program as a whole, 
or strip out the "I" loop if you want to 
add it to another program. But I suggest 
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you keep my convention of trailing 
periods at the end of each part of the 
message. I've found that without them 
you lose continuity and, worse, the 
watcher's interest. 



Williams Listing 



40 
44 



59 

S9 

60 
65 

70 
75 
77 
78 



REM *** ADVERTISE *** 
REM *** BY C WILLIAMS *** 
HOME s VTAB 10 i PRINT "THIS P 
RGGRAM WILL ALLOW YOU TO INP 
LIT AN ADERTISEMENT AMD HAVE 
IT SCROLL HORIZON!" I ALLY ACRO 
SS THE SCREEN AT VARYING RAT 
ES. " 
REM THIS LOOP DELAYS TO KEEP 

REM PROGRAM DESCRIPTION ON T 
HE SCREEN FOR LONG ENOUGH TO 
READ 
FOR Y - 1 TO 3000: NEXT Yi HOME 

READ AD* 

REM DATA STATEMENT CONTAINS! 

ADVERTISEMENT 
DATA "HELLO! I AM AN A 

PPLE COMPUTER AND I CAN DO A 
WHOLE LOT MORE THAN JUST AD 

VERTISE MYSELF. COME ON IN 

AND ASK ABOUT ME 



REM 70 SUBROUTINE CONTAINS S 

CRULLER 
Q'QSUB 70 
READ AD* 
REM DATA STATEMENT CONTAINS 

ADVERTISEMENT 
DATA "THE PEOPLE HER 

E WILL BE DELIGHTED TO SHOW 

YOU HOW I CAN HELP YOU. AND 
REST ASSURED THAT I ALMOST 

CERTAINLY CAN 

REM 70 SUBROUTINE CONTAINS S 
DROLLER 

QOSUB 70 

REM RESET READ STATEMENTS AN 

D LOOP back: 

RESTORE s GOTO 40 
REM SET LOOP INDEX => STRING 
LENGTH 
~ LEN <AD$> 
1 

VARIABLE SET FOR SPEED 
40; UNO = Is ZR - 
I * 3. TO L 
3 LOOP CONTROLS SCROLL S 
CHANGE INDEX IF YOU WI 



II = 

REM 
FT = 4< 
FOR I 
REM - 
PEED 
SH 
FOR J = 1 TO 60: NEXT 3 
REM VTAB CENTERS SCROLLED "T 

ICKER TAPE" 

VTAB 14 
TNUM a FT '■- Is IF TNUM < ZR THEN 
I I * I I + UNO 
IF TNUM < * ZR THEN TNUM = U 

NO 
REM TNUM CONTROLS HTAB WHICH 
IS HEART OF SCROLLER, WHEN 
< MOVE STARTING POINT TO R 
IGHT IN STRING 
) HTAB TNUM 

5 M = Is IF I > FT THEN M » FT 
i PRINT MID* <AD*,II,M) 
5 REM LOOP BACK FOR NEXT CHAR 

ALTER 
) NEXT I 
I REM DONE 
5 RETURN 





i 

2 
3 
4 
5 
6 
7 


Seybold Listing 

1 BREAKPOINT UTILITY 
Jew JOHN SEYBOID 










WARM EQU SA274 










ORG $1C0 










8 


OBJ $800 








01CO 48 


9 

10 


MA 


;SAVE ACCUMULATOR 






01C1 8D 88 D3 


11 


STA 154152 


;PUT IT ON THE SCREEN 






01C4 A9 41 


12 


IDA 'A 








01C6 8D 86 D3 


13 


STA 154150 


; PRINT 'A' LABEL 






01C9 A9 58 


14 


ha 'x 








01CB 8D 8D D3 


15 


STA 154157 


; PRINT 'X' LABEL 






01CE A9 59 


16 


IDA "Y 








01D0 8D 94 D3 


17 


STA 154164 


; PRINT 'Y' LABEL 






01D3 8E 8F D3 


18 


STX 154159 


rPUT X ON THE SCREEN 






01D6 8C 96 D3 


19 


STY 154166 


;PUT Y ON THE SCREEN 






01D9 20 00 FD 


20 


JSR $FDOO 


;POLL KEYBOARD UNTIL A CHAR. 


R 




BC'D 












01DC C9 53 


21 


CMP P S 


7 IS IT A 'S'2 






01DE DO 03 


22 


BNE RET 


;IF NOT, THEN RETURN 






01E0 4C 74 A2 


23 


JMP WARM 


;OTHERWISE WARMSTART 






01E3 68 


24 


RET PIA 








01E4 40 


25 


RTI 








Seybold Figure 




A] X + Y ! 









Breakpoint Utility 
forOSICIP 

John S. Seybold, 2130 University Ave. 
#74, Madison, Wisconsin 53705 



Recently, while debugging a user sub- 
routine, I became aware of the value of 
a breakpoint utility. I was unable to 
read the contents of the registers and it 
was impossible to tell what the pro- 
cessor was doing. Since I could not af- 
ford an extended monitor, I wrote this 
short program to do the trick. The pro- 
gram makes use of the fact that the 
6502 sees a BRK instruction as a soft- 
ware interrupt and jumps to the sub- 
routine that has its address at $FFFE 
and $FFFF. In the C1P and Superboard, 
that address is $ ICO. 

If you are familiar with the CIP's 
memory map, you will have noticed 
that this address is at the top of the 
BASIC stack area. If you call your 
machine code program from a BASIC 
program that uses a large amount of 
stack, then you will have to relocate 
the utility. This poses no problem 
since the code is entirely relocatable, 
but you must key in a JMP instruction 
at $1C0. For example, if you want to 
put the utility in page two, simply key 
in $4C 22 02 into locations $1C0 
through $1C2 and then put the utility 



in, starting at $222. (Beware of over- 
writing your user routine if it is also in 
page two.) 

To use the utility, just add "BRK 
NOP" to your program wherever de- 
sired. The NOP is to allow for the fact 
that the 6502 saves the contents of the 
program counter, plus two, when it ex- 
ecutes a break instruction which is only 
one byte long. Once the breakpoints 
have been added and the utility is in 
memory, you may run your program. 

When a breakpoint is encountered, 
you will see a display similar to the one 
shown in the figure. A, X, and Y stand 
for the respective registers. The figure 
next to each letter is the graphics 
character of the code in that register. 
To resume execution of your program, 
simply hit any key on the keyboard ex- 
cept "S". Hitting "S" will stop the 
program completely and warm start the 
machine to allow you to check memory 
locations. Once you have stopped, you 
must run the program from the begin- 
ning again, but when you get to the 
same breakpoint, you will know what 
is in each memory location, if you 
haven't made any changes. 

The program is heavily commented 
so as to be self-explanatory. I hope that 
it will be as much help to you as it was 
to me. 

JMCftO 
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JJecision 
Systems 



Dsciaion Systems 

P.O. Box 13006 
Denton. TX 76203 



SOFTWARE FOR THE APPLE II* 

ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 
$50 Disk, Applesoft. 

PBAS1C-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF... ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 
$35. Disk, Applesoft (48K, ROM or Language Card}. 

DSA — DS is a disassembler tor 6502 code. Now you can easily dis-assemble any 
machine language program for the Apple and use the dis-assembled code directly as 
input to your assembler. Disassembles instructions and data. Produces code com- 
patible with the S-C Assembler (version 4.0), Apple's Toolkit assembler and others. 
$25 Disk, Applesoft <32K, ROM or Language Card). 

FORM-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input -for acceptable range of values, 
automatic formatting of numeric output, and many more features. 
$25 Disk. Applesoft (32K, ROM or Language Card). 

UTIL-DS is a set of routines for use with Applesoft 1o format numeric output, selec- 
tively clear variables (Applesoft's CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs, 
$25 Disk, Applesoft. 

SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution improvements of 5-20% are common, As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need fo' 
garbage clean-up, Author: Lee Meador. 
$15 Disk, Applesoft (32K, ROM or Language Card). 



(Add $4.00 for Foreign Mail) 
'Apple II is a registered trademark of the Apple Computer Co 



CSE means OSI 

Custom After Market Software 
for C1P and C4P machines 



* Basic Enhancer: 

Renumber, Auto Sequencer, Screen Control func- 
tions, and tape 1/0 system that is faster and has file 
names 

C1P $21.95 

C4P $29.95 

Modified Monitor Rom Chip: 

Now get indirect jump-capabilities just like those 
in the C1P and for no extra charge CSE will burn in 
your machines serial number $16.95 

*NOTE: The C4P version of the Basic Enhancer in- 
cludes the modified monitor Rom chip required for 
proper program functioning. 

This is only a partial listing of our products. Write us 
for information on new disk programs or send $2 for 
catalog. Please include $2.00 shipping and handling 
with orders. 

Computer 

Science 

Engineering 

Box 50 • 291 Huntington Ave. Boston 02115 



BREAK THE TIME BARRIER! 

Speed-up and expand Apple ][ functions 
with TWO all-new, low-cost utilities. . . * 

1. UNIVERSAL BOOT INITIALIZER (UBI) ; . . $49.95 

• Initializes DOS 3.3 or 3.2.1 disks that load RAM Card on boot in 1.7 seconds. • UBI-initializeddiskswillRUN(BRUNor EXEC) one 
of two GREETING programs supplied by the user. • Built-in error handling capacity ensures execution of correct GREETING 
program whether one BASIC or both BASICS are available. • Obsoletes use of Apple's BASICS disk and DOS 3.3 System Master 
disk for fast single-disk direct booting. • The DOS 3.2.1 UBI-initialized disk boots on either 13 or 16 sector PROMS. • Multiple 
copies of UBI-initialized disks can be made with standard copy programs. 

2. AMPER-SORT/MERGE (A-S/M) $49.95 

• Can sort 1000 records in seconds. • General purpose Disk Sort/Merge Utility for Apple DOS 3.3 text files. • M/L Read, Sort 
and Merge for speed. • Sorts up to 5 input files into 1 output file. • Sorts random or sequential filesalphanumerically (Ascending or 
Descending) up to 5 fields. • Merges 2 to 5 pre-sorted files into a single file. • Compatible with mostdata base programs that create 
standard DOS 3.3 text files [e.g., VisiCorp's VisiFiles {formerly Personal Software's CCA DMS files)]. 

SYSTEM 

48K Apple ][ or ][+, ROM or RAM Card, DOS 3.3 (or DOS 3.2.1 for UBI) and one or more disk drives. 
$49.95 (+$3.00 Postage and Handling) for each Utility Disk (with Training Disk and Manual). 
You can get the Training Disk and Instruction Manual for either utility. 

[visa, Mc or amer exp] Can cybErtranics international, inc. 



REQUIREMENTS: 

COST: 

FOR ONLY $15: 

CREDIT CARDS: 



MAIL ORDER: 



Clearinghouse: (212) 532-3089. 

Send check (no Purchase Orders or CO.D.'s) to S&H Software, Box 5, Manvel, ND 58256. 



^LICENSED FROM APPLE: All Apple Computer Inc. programs — FPB ASIC, INTBASIC, DOS 3.3 & DOS 3.2.1 - usedinS&H 
Software's utility programs are licensed from Apple Computer Inc. by S & H Software. The unique UBI license to software 
vendors allows their use of these Apple Computer copyrighted programs to execute their programs on UBI-created disks, 
without further licensing from Apple Computer Inc. Software vendors' inquiries invited for both utilities. 



S&H Software 



H 



Box 5 Manvel ND 58256 
(701) 696-2574 



OSI COMPATIBLE HARDWARE 

IO-CA10X SERIAL PORT a _ *}£ 

ACIA based RS-232 serial printer port. DIP SWITCH selectable baud rates of 300-9600. 
Handshaking (CTS) input line is provided to signal the computer when the printer buffer 
is full. Compatible with OS-66U V1.2 and OS-65D . 

IO-CA9 PARALLEL PORT t175 

Centronics Standard Parallel printer interface for OSI computers. The card comes com- 
plete with 10 ft. of fiat ribbon cable. Compatible with OS-65D and OS-65U softwafe. 
IO-CA9D DIABLO PARALLEL PORT $175 

DIABLO 1 2 BIT WORD Parallel port for use with word processor type printers. Complete 
with 10 ft. cable. Compatible with OS65U software. 

10-LEVEL3 MULTI-USER EXPANSION W50 

Provides 3 printer mterfaces currently supported by OSI-Serlal, Centronics Parallel, 
Diablo Parallel. 4K of memory at D000 for Multi-user executive. A Port serial cluster. The 
LEVEL 3 card allows expansion of an OSI C3 machine up to 4 users with appropriate ad- 
ditional memory partitions. 

24MEM-CM9...$3«0 16MEM-CM9.-.$300 8 MEM-CM9. ., $210 

24K memory card is available at 3 different populated levels. All cards are fully socketed 
for24K of memory. The card uses 21 14-3O0ns chips. DIP SWITCH addressing is provided 
in the form of one 16K block and one 8Kt*lock. Also supports DIP SWITCH memory parti- 
tion addressing for-use in multiuser systems. 

FL470 FLOPPY DISK CONTROLLER f»*> 

OSI-Type floppy disk controller and real time clock. Will Support 5V« ore , Single or 
double-sided drives. Requires drives with separated data and dock outputs. 
BIO-1 600 BARE 10 CARD $50 

Super 1/0 Card. Supports 8K of 21 1 4 memory in two DIPSWITCH addressable4K blocks, 
2 16 Bit Parallel Ports may be used as printer interfaces, 5 RS-232 Serial Ports with CTS & 
RTS handshaking/With manual and Molex connectors. 

BMEM-CM9BARE MEMORY CARD WO 

Bare 24K memory card, also supports OSI-type real time clock and floppy disk controller. 
With manual and Molex connectors. 

#96 PROTOTYPE CARD <q Jg* 

Prototype board holds 96 14 or 16 pin IC's. Will also accommodate 18, 24, or 40 pin IC s. 
Row and column zone markings, easy layout. y„" epoxy glass P.C. board. 
C1PEXP EXPANSION INTERFACE **B 

Expansion for C1 P 600 or 61 boards to the OSI 48 Pi n Buss. Uses expansion socket and 
interface circuitry to expand to 48 Pm Backplane. Requires one slot in backplane. 
BP-580 BACKPLANE **7 

Assembled 8-siot backplane with male Molex connectors and termination resistors. 
DSK-SW DISK SWITCH Jt *» 

A circuit when added to OSI Minifloppy systems extends the life of drives and media. Ac- 
complish this by shutting off Minifloppy Spindle motor when system is not accessing 
the drive. Complete KIT and manual. 



D&N MICRO 

INC. 

3684 N. Wells Street Ft. Wayne, Indiana 46608 
219/485-6414 

TERMS: Check or money order Add $2 Shipping, Outside U.S. add 10% 




THANKS! 

FOR VOTING 

GRAPHTRIX™ 

SECOND IN SOFTALK'S 

FAVORITE 

HOME 10 

FOR 

1984! 

PLACING HIGHER 

THAN 

ANY OTHER 

GRAPHICS 

PROGRAM! 



FOR HARD COPY OF YOUR 
APPLE II HI-RES GRAPHIC 



Data Transforms Inc. 
616 Washington, Suite 106 
Denver, Colorado 80203 
(303) 832-1501 



Features: Graphic Magnification, 

Normal/Inverse, Page Centering, 

High and Low Crop Marks, Title String, 

Superscript, Footnotes, Chapters, Fully 

Menu Driven 

REQUIRES: Apple II with 48K, Applesoft 

in ROM, One Disk Drive with DOS 3.3. 

Apple is a Trademark of Apple Computer Inc. 

c Copyright 1982 Data Transforms Inc. All Rights Reserved 

GRAPHTRIX is the Trademark of Data Transforms Inc., a division of Solarstotlcs Inc 




APPLE-LISP 

Excellent implementation of LISP 1.5 
for the Apple II Computer! 

Apex Company Limited introduces APPLE-LISP which is designed for sym- 
bolic data processing and used for the fields of artificial intelligence. 

Features of APPLE-LISP are as follows: 

• APPLE-LISP has three systems. 

— ST LISP (accepts S-expression programs) 

— META LISP (accepts both S-expression programs and meta-like 
language programs) 

— MINI ED (edits the source program) 

• APPLE-LISP accepts not only S-expression programs but also meta-like 
language programs. 

• 142 machine language functions are available in disk version. 

• Fast and efficient Garbage Collector. 

• Full support of low resolution and high resolution graphics (gr, plot, hlin, 
vlin, hplot, hcolor, etc.). 

• Full support of real number and arithmetic functions (sin, cos, log, rnd, 
abs, quotient, sqrt, sign, plus, max, etc.). 

• Tracing by trace functions and interruption. 

• Runs on 48K Apple II or Apple II Plus with disk or cassette. 

• Extensive 140-page user's manual. 

• Includes PROG feature, WHILE structure, extended COND expression. 

• Many library functions. 

• The following attractive programs are included: 
EXPRES (converts infixed expression to prefixed), 
HANOI (tower of HANOI), 

DET (calculates determinant of the matrix with symbolic formula), 
HILBERT (draws two recursive graphic patterns), etc. 

(A) APPLE-LISP Disk Version with DOS 3.3 !?^.00 

(B) APPLE-LISP Disk Version without DOS 3.3 $19 nnn 

(C) APPLE-LISP Cassette Version $189.00 
Additional $6.00 for postage fee required. 

To Order: Send the order form with your check or money order. 



J To Apex Company Limited 

■ I enclose my check/money order $_ 

I unit(s)of item 



Date: 

_for . 



Name _ 



Apex Company Limited 

5-11-3, Yagumo, Meguro-Ku, Tokyo, 152 Japan 




EDITRIX 



CAN YOU SEE WHAT YOUR 
WORD PROCESSOR 
IS GOING TO PRINT? 

WITH 

EDITRIX 

YOUR TEXT WILL 

BE DISPLAYED 

AS IT 

IS TO BE 

PRINTED, 

UP TO 

220 COLUMNS 

Insert Graphics, 

Footnotes, Superscripts 

or Different Type Fonts 

Anywhere In Your Text 

These Features Plus Many More 

Are Right At Your Fingertips With 

EDITRIX™ 

From 

Data Transforms Inc. 

616 Washington, Suite 106 

Denver, Colorado 80203 (303) 832-1501 

REQUIRES: Apple II with 48K, Applesoft in ROM, 

DOS 3.3 and the GRAPHTRIX 1.3 Matrix Graphics System. 

Apple is a trademark of Apple Computer Inc 
(c) Copyright 1982 Data Transforms, Inc. All Rights Reserved 
f EDITRIX AND GRAPHTRIX are the trademarks of Data Transforms Inc. a aivision of Solarstatics Inc. 
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PRINT AT for OSI Systems 



by Matt Asay 






By loading this routine, the AT 
keyword is recognized in a 
PRINT statement. The routine is 
designed for an OSI C1P but 
should work (with the 
modifications suggested) on a 
C4P or C8P. The method used 
here could probably be adapted 
to add recognition of new 
statements or keywords to other 
Microsoft BASICS such as the 
PET. A useful hex object code 
loader is also provided. 

PRINT AT 

requires: 

OSI C1P 

May be modified easily for 

C2P. 

The Microsoft BASIC on an Ohio 
Scientific C1P has most of the features 
found on other versions. One feature 
that (unfortunately) is lacking is the 
ability to print at a selected location on 
the screen. There are some ways to get 
around this by using POKE but you are 
limited to POKEing one character at a 
time. It is slow and cumbersome to do. 

I have developed a program to 
remove these limitations by adding an 
AT option to the PRINT statement. 
Once this program is installed you can 
print anything anywhere on the screen 
with ease. The program hides itself at 
the top of your available memory on 
any size system, using only 166 bytes 
of permanent storage. After it has been 
entered you can write, save, load, and 
run programs using the new PRINT AT 
statement. Programs which do not use 
AT in their PRINTS should function the 
same as always. 

The three forms of the statement 
are: 

PRINT AT location; print-hst; 

where location is: 



BASIC Program to Load and Initialize PRINT AT 



(See text for description of the RelatK 



adec i ma 1 Loader ) 



1 REM ( (PRINT R-m 

2 REM BY MATT RSAY 

3 REM (CREL HEX LOADERS ) 
5 GOSUB 10: GOTO 1000 

10 DEF FNfl(DX)-flSC(MID$(H$,DX,1 >) 

20 DEF FNHDCDX)-FNA(DX)-4B + (FNRtDX)>64:>*7 

30 DEF FNB(DX)-FNHD(DX)*16+FNHDCDX+1 ) 

40 DEF FNHFKDXW CFNHD CDX )*1 6+FNHD ( DX+1 ) ) *1 S+FNHDC DX+2 ) ) #1 6+FMHDC DX+3 ) 

45 RERD Hi: R0-PEEKC 1 34 ) *256+PEEK C 1 33.) -FNHflC 1 ) 

50 FOR Hfl = R0 TO 32767: RERD H$: ON LEN(HS) GOTO 51,52,53,54,55: GOTO 54 

51 RETURN 

52 POKE HR,FNB(1): NEXT: STOP 

53 RA-R0+FNBC2): GOTO 5B 

54 POKE HR,FNBt1): FOR 1-3 TO LENCH$) STEP 2: HR-HR+1 : POKE HA,FNB(I): 
NEXT I: NEXT: STOP 

55 RR-R0+FNHRC2) 

56 IF LEFT$CH$,1 )-"H" THEN POKE Hfl,Rfl/256: NEXT: STOP 

57 POKE HR,RR RND 255: 
5B NEXT: STOP 



IF LEFTS CHS, 1 )="R" THEN HR-HA+1 : POKE Hfl, Rfl/256 



Size of code in hex 
100 DflTR OOFD 

Code for USRX 

110 DflTR R9,L57,RO,H57,85B1B48285S3849495e58486R207 

120 DflTR BD,R4F,95C5CA10F8AD1A02AC1B02BD,REG,8C ; RE7 

130 DATR fl9,LE1,RO,HE1,BD1A02BC1B02RD1C02RC1D02 

140 DATR 8D,RFB,8C,RFC,A9,LF6,AO,HFG,8D1C028C1D02A988AOflE 

150 DATR 850B840CGOC920FOF34C,R57,00 

Code for PSPLIC 

160 DRTR 24CC1014C941DOOE499848A001B1C3C954F013 
170 DRTfl GBA86B06CCC997D00285CCC93ABQQ34CCDQQ60 

Code for PR . AT 

180 DflTR 46CC6BR86820BC002OBCOOC9R5DOOB2OBCO03B 
190 DflTR B04120C1RR2008B420C200C92CD023R5110ROR 
200 DflTR OAOR26120RB511R5122R48R51 1 4B20C9AA2008B4 
210 DATR 661B65118511BBG5128512R51 1 8D, RE9 , A5 1 22303 
220 DRTR O9DO8D,RER,20C200C93BDOO34CBC0OR91C85CC4C4ER2 

Code for OSPLIC 

230 DRTfl 24CC70034C0000BD00D0EE,RE9,D003EE,REA,C60EG0 

Code for CSPLIC 

240 DRTfl R90085CC4C000Q 

End of load data marker 
250 DRTfl * 



This code initializes PRINT RT wh 

1000 UL-PEEKC11 ) 

1010 UH-PEEKC12) 

1020 POKE 1 1,RQ-INTCR0/25G)*25G 

1030 POKE 12,R0/25G 

1040 X-USR(X) 

1050 POKE 11, UL 

1060 POKE 12, UH 
The following code is a short demonstration of the 

1200 PRINT: PRINT 

1210 PRINT "TEST PROGRAM" 

1220 FOR 1-1 TO 20: PRINT: NEXT 

1230 PRINT RT 1 0*32+5; " PRI NT" ; 

1240 PRINT RT *;" RT" ; 

1250 PRINT AT 12,5;"HRS BEEN"; 

1260 PRINT "WORKS III"; 

1270 PRINT RT *;" LOADED..."; 

1280 At -"RND IT" 

1290 PRINT AT 1 4 , 20-LEN( Rf) ; AS; 

1300 FOR 1-1 TO 500: NEXT 



preserving any previous USR function 



of PRINT AT 
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1. A numeric expression. Printing 
starts at sc + INT( expression), 
where sc is the address of the 
screen, 

2. Two numeric expressions 
separated by a comma. Printing 
starts at sc + INT(exprl) *32 + INT 
(expr2). This allows specification 
of location by row and column. 

3. An asterisk ("*"). Printing con- 
tinues with the position im- 
mediately after the last character 
printed by the last PRINT AT. 

print-list is any allowable list of 
items to be printed, separated, by 
semicolons. The trailing semi- 
colon is necessary since the car- 
riage return and linefeed that 
BASIC tags on will print as their 
corresponding graphics charac- 
ters. This was done intentionally 
to allow the printing of all 
graphics characters using CHR$( ). 

Examples 

PRINT AT 200;CHR$(248);" < - A tank"; 

PRINT AT X,Y; "PRINT AT ROW X, 
COLUMN Y"; 

PRINT AT 15,7; "PRINT AND "; 

A$="ADD" 

PRINT AT *; A$ + " MORE"; 

PRINT "PRINT ON BOTTOM AND 

scroll- 
How to Install 

Once I had developed this program I 
needed an easy way to install it on a 
system. I considered and rejected mak- 
ing a tape that the monitor could read. 
It would be difficult to modify, error- 
prone on input, and would work only if 
loading to a fixed absolute address. I did 
not want to use a BASIC program that 
POKEd in several DATA statements of 
decimal values since I think in hex 
when programming in assembly. For 
this reason I created a BASIC program 
that reads hex strings and converts 
them to binary and loads them into 
memory. To make it adaptable it calcu- 
lates a starting load address from the 
size of the program and the address of 
the top of memory. 

Enter the program shown on listing 
1, save it to tape and then run it. After 
it is through loading (about 15 seconds) 
it will print "PRINT AT HAS BEEN 
LOADED... AND IT WORKS !!!" 



Assembly Listing of PRINT AT Routine 



Rssembly listing of PRINT RT routines 

(Underlined values entered as relative addresses in DRTR statements) 



INITIALIZATION VIA X=USRCX) 
RESERVE MEMORY FOR SPLICES 




214F C9 20 

2151 FO F3 

2153 4C 5_7__2_L 

oocc 



2100 
005? 
0021 
2100 
00E1 
0021 
2100 
OOF 6 
0021 



USRX1 

$021 R 

$021B 

OS. 0+1 

OS. 0+2 

ttOS.LB 

ItOS.UB 

I021A 

$021B 

*021C 

$021D 

CS.0+1 

CS.0+2 

scs.LB 

ttCS.UB 
$021C 
$02 1D 

a$ss 

tt$AE 
$0B 

$0C 



PATCH CMP *' PATCH PUT AT $C5-$CC 

BEQ *-11 

JMP PSPLIC 
RTFLG * *-PATCH+$C5 AT FLAG AT $CC 
; BIT SET MEANS PRINT TOKEN FOUND ON LRST FETCH 
; BIT 1 SET MEANS PRINT AT CURRENTLY ACTIVE 

.BYTE *-* 



PUT SPLICE INTO PRRSE ROUTINE 

GET OLD OUTPUT VECTOR 
STORE INTO OUTPUT SPLICE 
SPLICE INTO OUTPUT VECTOR 

GET OLD CONTROL-C VECTOR 
STORE INTO CONTROL-C SPLICE 
SPLICE INTO CONTROL-C VECTOR 

RESTORE USR VECTOR TO DEFAULT 



2157 
2157 
2153 
215B 
215D 
215F 
2160 
2161 
2162 
2164 
2166 
2168 
216A 
216B 
216C 
216D 
216F 
2171 
2173 
2175 
2177 
2179 
217C 

217D 
217D 

217F 
2180 
2181 
2182 
21B5 
2188 
218R 
218C 
218F 



24 CC 

10 14 

C9 41 

DO OE 

48 

96 

48 

AO 01 

B1 C3 

C9 54 

FO 13 

66 

R6 

6G 

06 CC 

C9 9? 

DO 02 

85 CC 

C9 3A 

BO 03 

4C CD 00 

60 



T 

PS. LB 

PS.UB 

T 

OS. LB 

OS.UB 

T 

CS.LB 

CS.UB 

PSPLIC - 

SPLO 
SPL1 

SPL2 

SPL3 
PR.RT 



PSPLIC/256*256 

PSPLIC-T PSPLIC LOW BYTE 

PSPLIC/256 UPPER BYTE 

0SPLIC/256*256 

OSPLIC-T OSPLIC LOW BYTE 

OSPLIC/256 UPPER BYTE 

CSPLIC/256*256 

CSPLIC-T CSPLIC LOW BYTE 

CSPLIC/25G UPPER BYTE 



46 CC 
66 

A8 

20 BC 00 
20 BC 00 
C9 A5 
DO 06 
20 BC 00 
38 



= 


* 


PRRSER SPLICE 


BIT 


ATFLG 


PRINT TOKEN FOUND ? 


BPL 


SPL1 


BRANCH IF NOT 


CMP 


tt'A 


CHECK FOR "AT" 


BNE 


SPLO 


NO 


PHA 




SRVE A,Y 


TYA 






PHA 






LDY 


81 




LDA 


($C3),Y 




CMP 


8'T 


(NO BLRNKS RLLWD BETWEEN A AND T) 


BEQ 


PR.RT 


BRANCH IF "AT" FOUND 


PLA 




RESTORE Y,R 


TRY 






PLR 






RSL 


RTFLG 


CLEAR "PRINT FOUND" BIT 


CMP 


ttPRTOK 


IS CHARACTER PRINT TOKEN ? 


BNE 


SPL2 


BRANCH NO 


STA 


ATFLG 


SET PRINT FOUND, CLEAR AT FOUND 


CMP 


«' : 


SET STATUS RND RETURN CHRRACTER 


BCS 


SPL3 




JMP 


$OOCD 




RTS 






. 


* 


"PRINT AT" FOUND 


LSR 


ATFLG 


CLEAR PRINT FLAG, SET AT FLAG 


PLR 




RESTORE Y,R 


TRY 






PLA 






JSR 


$OOBC 


SKIP OVER "T" 


JSR 


SOOBC 


GET NEXT CHARACTER 


CMP 


*RSTTOK 


"*" TOKEN ? 


BNE 


PR.RO 


BRANCH IF NOT 


JSR 


$OOBC 


GET NEXT CHRR 


SEC 
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Assembly Listing (continued) 



BCS 
JSR 
JSR 

JSR 
CMP 
BNE 
LDR 
HSL 
RSL 
RSL 
RSL 
ROL 
RSL 
STR 
LDR 
ROL 
PHR 
LDR 
PHfl 
JSR 
JSR 
PLR 
CLC 
RDC 
STR 
PLR 
RDC 
STR 
LDR 
STR 
LDR 
HND 
ORR 
STR 
JSR 
CMP 
BNE 
J MP 



21DR R9 1C BOOBOD LDR 
21 DC 85 CC STR 

21CE AC 4E R2 JMP 



2190 


BO 


41 




2192 


20 


C1 


RR 


2195 


20 


08 


B4 


2199 


20 


C2 


00 


219B 


C9 


2C 




219D 


DO 


23 




219F 


R5 


1 1 




21R1 


OR 






21R2 


OR 






21R3 


OR 






21R4 


OR 






21R5 


26 


12 




21R7 


OR 






21R8 


65 


1 1 




21RR 


R5 


12 




21RC 


2R 






21RD 


48 






21 RE 


R5 


1 1 




21B0 


48 






21B1 


20 


C9 


RR 


21B4 


20 


08 


B4 


21B7 


68 






21B8 


18 






21B9 


65 


11 




21BB 


85 


1 1 




21BD 


68 






21BE 


65 


12 




21 CO 


85 


12 




21C2 


R5 


1 1 




21C4 


8D 


E9 21 


21C? 


R5 


12 




21C9 


29 


03 




21CB 


09 


DO 




21CD 


8D 


£P 2.1 


21 DO 


20 


C2 


00 


21D3 


C9 


3B 




21D5 


DO 


03 




21D7 


4C 


BC 


00 



0097 
00R5 



PRTOK - 
RSTOK - 



21E1 


24 CC 






BIT 


21E3 


70 03 






BVS 


21E5 


4C 00 00 


OS 





JMP 


21E8 


8D 00 DO 


OS 


1 


STR 


21E9 




RT 


LO 


■ 


21ER 




RT 


HI 


= 


21EB 


EE E3 21 






INC 


21EE 


DO 03 






BNE 


21F0 


EE Efl 21 






INC 


21F3 


C6 OE 


OS 


2 


DEC 


21F5 


60 






RTS 



21FG 
21F6 
21F8 
21FR 
21FD 



$000B 
SOOOE 

f 001 1 

10081 
$0083 
$0085 
$00BC 



S00C2 
$00C3 
*021fl 
$02 1C 

$R24E 
$ARC1 

SRRC9 
$RE88 
$B408 



CSPLIC = 

R9 00 LDR 

85 CC STR 

4C 00 00 CS.O JMP 

END 



PR. A3 

$RRC1 

$B408 

$00C2 

**'; 

PR.R2 

$1 1 

R 

R 

R 

R 

$12 

R 

$1 1 

$12 

R 

$1 1 

$RRC9 
$B408 



$1 1 
$1 1 

$12 

$12 

$1 1 

RTLO 

$12 

»$03 

**$D0 

RTHI 

$00C2 

a'; 

BOOBOO 

$00BC 



828 

RTFLG 

$R24E 



$97 
$R5 



RTFLG 

OS. 1 

*-# 

$D000 

*-2 

*-1 

RT.LO 

OS. 2 

RT.HI 

$0E 



80 

RTFLG 



BRANCH RLNRVS 
COLLECT EXPRESSION 1 
CONVERT TO INTEGER 
FOLLOWED BY " ," ? 

BRANCH NO 

PUSH INKEXPR1 )*32 ONTO STRCK 



COLLECT 2ND EXPRESSION 
CONVERT TO INTEGER 
ADD INTCEXPR1 5*32 



ADD IDQOO, STORE RS " RT" RDDRESS 



GET NEXT CHRRRCTER 
MUST BE ";" 
BRANCH IF NOT 

GET NEXT CHRR RND RETURN TO 
PRINT ROUTINE 

LORD OFFSET OF "ST" ERR MSG 
RESET PRINT RND AT FLAGS 
PRINT ERROR MESSAGE 

BASIC TOKEN FOR "PRINT" 
BASIC TOKEN FOR ''*" 

OUTPUT VECTOR SPLICE 

"AT FLAG" SET ? 

BRANCH IF YES 

DO NORMRL OUTPUT RND RETURN 

STORE CHARATER ON SCREEN 

LOCATION TO STORE IN CLON BYTE 5 

(HIGH BYTE ) 
INCREMENT SCREEN ADDRESS 



DON'T LET CHAR COUNT OVERFLOW 
RETURN 

CONTROL-C VECTOR SPLICE 
END OF STATEMENT, 

SO RESET PRINT, AT FLRGS 
DO NORMAL CONTROL-C STUFF 



Addresses and Subroutines used In PRINT RT 
Address of USR subroutine vector 

Current "characters printed" count. Incremented by BASIC before 
output routine is called. 

Integer part (low, high form) of number In floating point accumul 
($00AC-$00AF) after a call to "fix r ~ 

Address of start of string storage 
Address of string scratchpad 
Address of end of memory+1 

Increment current character pointer and fetch next character of 
program. Return with 2 set if end of line or ":", C clear if "0 
blanks skipped over. 
Fetch current character, setting status as above. 
Address of current character. 
Address of print routine. 

Address of routine to check for control-C. (Called at the end of 
BASIC statement ) . 

BASIC error message routine. Use A as offset into error message 
Collect expression starting at current character of program. Put 
into floating point accumulator ($AC-$AF). 

Collect expression starting with next characterof program. 
Default address for USR routine. Prints "PC" error message. 
Converts number in floating accumulator to integer and stores it 
$11, $12 (low, high form). 
Address of start (upper left corner) of screen. 



routine at $B408 

Set to start of PSPLIC by USR 
call (initialization) to protect 
PRINT AT routine 

BASIC 
9", 



table. 

resu 1 t 



across several lines of the screen. Then 
you may type NEW and enter or LOAD 
any program you like, using PRINT AT. 

If an error occurs in the middle of a 
PRINT AT statement the "AT flag" 
can be turned off by typing any valid 
BASIC statement (i.e., LIST or "?" for 
PRINT, etc.] at the keyboard. 

Relative Hexadecimal Loader 

The loader reads strings from data 
statements and loads a program into 
high memory. The program consists of 
four parts: 

1. Program size: 

A 4-digit hex number. This value is 
subtracted from the end-of-memory 
address at $0085 to get the starting 
address for the program. 

2. Non-relocatable hex data: 

A string of any number of bytes in 
hex form. 

3. Relocatable addresses: 

A prefix character R, H, or L followed 
by two or four hex characters. The 
hex number is added to the starting 




ARE YOU 

A GOOD PROGRAMMER? 

Do you think it's the neatest thing you could 

possibly be doing? 

We're looking for the best 

Send us a letter {or call us evenings) telling us what 
you like to program. Our emphasis is Apple*, and 
we like other computers too. Translations wanted. 
Come to our summer workshop August 8-14 in 
Eugene Oregon! Write for application and 
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address of the program. The resul- 
ting address is stored as follows: 

R: Store both bytes (low, high form) . 
H: Store high byte. 
L: Store low byte. 



4. End of program marker: 
Any single character (' 
here]. 



is used 



You can use the loader program for 
your own machine language routines. 
Use lines 1-58 as shown. Replace 
100-999 with DATA statements for 
your code in the format shown. When 
the program has finished loading it will 
jump to 1000 with R0 set to the starting 
load address. Your statements here 
should protect your program if desired 
and perform any other initialization 
needed. 

How the Program Works 

The program has four parts: a USR 
call for initialization, "splices" into 
the BASIC parse, output, and control-C 

routines. 

The USR routine changes the top of 
memory address to protect the perma- 
nent part of the program (not including 



this initialization). It patches the other 
three pieces into their respective vec- 
tors. The code at line 1000 saves and 
restores the previous USR address, so 
this routine can be loaded after another 
USR routine without messing it up. 

The second piece is spliced into the 
parse routine at $BC-$D3. This routine 
fetches the program for the BASIC in- 
terpreter a character/ token at a time. 
When not in a PRINT statement this 
routine works normally. Otherwise it 
checks for an AT following the PRINT 
token. If it is found, the routine col- 
lects and interprets the location 
specification. It then returns the char- 
acter following the first semicolon to 
the print routine as if the "AT 
location;" had not been there. 

The third piece is spliced into the 
output vector. Any time the "AT flag" 
(bit 1 of $CC) is on, instead of going to 
the normal print routine, it outputs to 
the current screen location and then in- 
crements the location. It then decre- 
ments the character count (which the 
routine that calls it increments) to pre- 
vent overflow and returns to the caller. 

The last piece is spliced into the 
control-C vector. This vector is called 



at the end of each statement (to check 
if control-C is depressed). The spliced 
routine unconditionally resets the "AT 
flag" before going to the normal 
control-C routine. This prevents an er- 
ror, control-C, or END of the program 
from leaving the ' 'PRINT AT' ' on when 
control returns to the user. 



This program takes 253 bytes to 
load, but after initialization requires 
only 166 bytes. If you wish to preserve 
the initialization code also just change 
the "L57" in line 110 to "LOO". 

The only change which should be 
necessary to use this routine on a C2P 
is to change the code at 219F-21B0 to 
multiply by 64 instead of 32. 



Matt Asay is a senior analyst at Queue 
Systems Incorporated where he develops 
process control and data acquisition 
systems. He holds a degree in Computer 
Science from CSU, Sacramento. His home 
computer is an OSI C1P with 20K RAM 
and a floppy disk. He may be contacted at 
2925 Janet Drive, West Sacramento, CA 
95691. 
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ZFORTH IN ROM by Tom Zimmer _ h ^i, ^ raclipi 

5 to 10 times faster than Basic. Once you use it, you I! never go back to BAbio. 

source listing add 

OSI FIG-FORTH True fig FORTH model for 0S65D with fig editor named files, string 

package & much more 

TINY PASCAL Operates in fig-FORTH, an exceptional value when purchased with forth 

TINY PASCAL & documentation 

FORTH & TINY PASCAL 



$ 75.00 
$ 20.00 

$ 45.00 



$ 45.00 
$ 65.00 



SPACE INVADERS 100% machine code for all systems with 64 chr. video. Full color & sound 
on C2, 4P & 8P systems. The fastest arcade program available. 

PROGRAMMABLE CHARACTER GENERATOR 

Use OSI's graphics or make a complete set of your own! Easy to use, comes as a kit. 
2 Mhz. boards 

W%£%%^™™™ 32 chr. C1P. or 32/64 chr. C4P video display. 
Also adds many other options. 

SSI Video Mod with our Roms. Full screen editing, print at selectable scroll, disk support and many more^ 

features. Basic 4 & Monitor $ 18.95 

Basic 3 $ 59.95 

All 3 for 



$ 14.95 

$ 99.95 
$ 84.95 
$109.95 

$ 74.95 
$29.95 

$ 39.95 



65D DISASSEMBLY MANUAL, by Software Consultants. First Class throughout. 
A must for any 65D user 



$ 25.95 
A musi Tor any dou use ,_-,,.« Al , 



Routine. 



i HAKGEX 
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CAN'T AFFORD SOFTWARE? 

READ THIS: 

If the high price of commercial soft- 
ware and the lack of clear information 
about your microcomputer has got you 
down, here's the solution you've been 

waiting for! 

SoftSide Magazine 

SoftSide is a favorite of computer users and 
hobbyists alike. They rely on it as a prime source 
of programs, reviews and articles for the Ap- 
ple™, ATARI®, and TRS-80® microcomputers. 
SoftSide is the magazine for the microcom- 
puter owner who wants to learn BASIC pro- 
gramming, learn MORE about BASIC pro- 
gramming, or just wants to have FUN! 
SoftSide gives you the BASIC code listings 
of several programs — adventures, 
utilities, games, simulations, you name it 
- for your computer EVERY MONTH. 

There's more: 

Reviews — of the software and hard- 
ware products you want to know 
about. 

Articles — about all aspects of 
BASIC programming. 
Tutorials — on graphics, use of im- 
portant commands, and more. 
Programs — each month SoftSide 
publishes a variety of program for the 
Apple, ATARI® and TRS-80®. 






• Columns — which discuss different topics in- 
cluding: computer graphics, picking the right 
modem for you and marketing your software — 
just to name a few. 

• Input from our readers — each month we 
devote a space in the magazine to let our 
readers give us some feedback about SoftSide. 

• Hints & Enhancements — programmers and 

readers provide us with enhancements, to our 

programs, and programming tips. 
Use coupon to order. Mail to: SoftSide Publica- 
tions, 6 South St., Milford, NH 03055 

As you can see, you'll receive pages and 
pages of information and entertainment 
from SoftSide. Here's the best part: 

A subscription to SoftSide is just $24 a 
year. That's 12 issues for only $2 each! 
What a value! 



I I YES! Send me the first copy of my 

SoftSide subscription right away! 

$24/yr for USA and Canada only. For orders to APO/FPO 
or Mexico — $40/yr. Other foreign orders — $62/yr. 

I own a □ Apple D ATARI® □ TRS-80® 



Name 

Address _ 
City/State 



-Zip_ 



□ Check is enclosed 

□ MasterCard □ VISA 

Name of Cardholder 



MC#andlnterbank#/VISA# 

Exp. Date 

Signature 



New 
Product 
Catalogs 



Our Software and Hardware Catalogs 
list the newest 6502/6809-based 
products. (Turn to pages 109 and 117.) 
The easy-to-read entries offer quick 
information for our readers. Use these 
catalogs to present your products. Just 
write to MICRO and ask for the 
appropriate form. 

Software (Hardware) Catalog 

MICRO 

P.O. Box 6502 

Chelmsford, MA 01824 



6800/6809 Software 

Includes compatible single-user, multi- 
user and network-operating systems, 
compilers, accounting and word 
processing packages. Free catalog. 
Software Dynamics 
2111 W. Crescent,, Sta. G 
Anaheim, CA 92801 



PET/CBM Owners 

Real world software at low cost. 2114 

c tor 
free catalog! 

Optimized Data Systems 
Dept. M, Box 595 
Placentia, CA 92670 

Deadline for MICROhits: 20th of sec- 
ond month before publication. Send 

typewritten copy with $25 per inser- 

. lfMRO 




SIGNALMAN MARK I DIRECT CONNECT 
MODEM - $89.50 

Standard 300-baud, full duplex, 
answer/originate. Powered by 
long lasting 9-volt battery (not 
included). Cable and RS 232 
connector included. 

EPR0MS - HIGH QUALITY, NOT JUNK 

Use with PET, APPLE, ATARI, SYM, AIM, etc. 450 ns. $6.50 
for 2716, $12.50 for 2532. We sell EPR0M programmers 
for PET and ATARI 

B'/i INCH SOFT 
SECTORED DISKETTES 

Highest quality. We use them on 
our PETs, APPLEs, ATARIs, and other 
computers. $22.50/10 or $44.50/20 

NEW1C.ITOHSTARWRITERF10 
DAISY WHEEL PRINTER 

Letter quality, flawless copy at 40 charlsec. Bidirectional 
printing, 15-inch carriage, uses standard Diablo ribbons 
and print wheels. 
PARALLEL - $1495, RS 232 - $1680, TRACTORS - $210 




MAE SOFTWARE DEVELOPMENT SYSTEM 
FOR PET, APPLE, ATARI Aicnoc 

'The Compatible Assembler" 

• Professional system for development of Machine Lan- 
guage Programs. 31 Characters per label. 

• Macro AssemblerfText Editor for Disk-based systems. 

• Includes Word Processor for preparation of Manuals, etc. 

• Standard Mnemonics - Ex.: LDA (LABEL), Y 

• Conditional Assembly, Interactive Assembly. 

• Editor has string search/search and replace, auto line 
numbering, move, copy, delete, uc/lc capability. 

• Relocating Loader to relocate object modules. 

• Designed with Human Factors Considerations. 

FLASH!! EHS Management has decided to allow $50.00 credit 
to ASM/TED owners who want to upgrade tD MAE. To get this 
credit, return ASM/TED manual with order for MAE. 

BEFORE YOU BUY THAT OFF-BRAND ASSEMBLER, 

WRITE FOR OUR FREE DETAILED SPEC SHEET. 

SMARTERM 80 COLUMN CARD 
FOR APPLE - $279 

Upper/lower case and 80 columns. Includes 5x7 matrix 
character set, full ASCII keyboard, and true shift key 
operation. 

TYMAC PARALLEL PRINTER INTERFACE 
FOR APPLE -$119.95 

For use with Centronics, Starwriter, Prowriter, etc. 



TRAP65 - $69.95 
(was $149.95) 



IIP 




Traps 6502 unimplemented 
opcodes and helps prevents 
accidental system crashes. 
Also useful to extend the 6507s 
instruction set. Imagine a 
DIVIDE or MULTIPLY instruc 
tion, or PHX, PHY, etc. Manual 
describes how you can add 
new instructions. 

EPROM PROGRAMMER 
FOR PET AND ATARI COMPUTERS 

The BRANDING IRON is an EPROM programmer especially 
designed for PET and ATARI computers. Programs 2716 
and 2532 type EPROMs. The PET version plugs into the 
cassette and 1/0 port and comes with software which adds 
the programmer commands to the PET monitor. The 
ATARI version plugs into controller jacks and comes with 
a full fledged machine language monitor which provides 
30 commands for interacting with the computer and the 
BRANDING IRON. PET - $75.00 ATARI - $119.95 

C. 1TOH PROWRITER DOT MATRIX 

Near letter quality printing at 120 char/sec with tractor 
and friction feed and graphics capabilities (some say it is 
better than the MX-80). 

PARALLEL - $499.95 , RS-232 - $660.00 



3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 



ViSA* 



t (MasterCard ) I 
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Symbol Table Lister 
for the OSI 



by RolfJohannssen 



Use this routine to list the 
symbol table generated by the 








Symbol Table Lister 


OSI C1P Assembler. 












Symbol Table Lister 








; SYMBOL TABLE LISTING PROGRAM 
; LAST REVISION 14 JAN 82 


requires: 








; PAGE ZERO LOCATIONS 










LL = *6A 


LAST LINE USED IN SYMBOL TABLE 


OSI C1P 








BC = *16 


BYTE COUNTER 


OSI C1P Assembler 








CC = BC+1 
CSV = CC+1 
MCTR= CSV+1 
XP = MCTR+1 


CHAR . COUNTER 
SAVED CHARACTER 
MULT . CHAR . COUNTER 
X POINTER 


Introduction 










xsu = XP+1 


X REG. SAVE 


Programming in assembly rather than a 








YSV = XSV+1 


Y REG. SAVE 


high level language (BASIC, Pascal) 








LN = YSV+ 1 
LW = LN+2 


LINE NUMBER 
LAST WORD 


may be preferred for one of three main 








PTR = LW+2 


POINTER 


reasons: speed, economy of memory 








PTR2= PTR+2 


SECOND POINTER 


usage, and the ability to do things not 
available in the higher level languages. 








BFR = PTR2+2 
DEST= BFR+S 
M = DEST+S 


BUFFER 

DESTINATION BUFFER 
MINIMUM SYMBOL VALUE 


Small sections of code can be assembled 








MP = M+4 


MINIMUM IN CURRENT LOOP 


by hand and entered using a simple 
monitor. However, this is a tedious 








CTRO= *64 

; ADDRESS 

GCB = $0106 


CTRL/0 FLAG AS IN BASIC 
EQUATES 

BASIC ASCII BUFFER 


process and prone to error. For any 








PFL = *0205 


SAVE-TO-TAPE FLAG 


serious assembly language coding an 








STMEM=*12C? 


START OF MEM FOR SOURCE 


assembler program must be used. An 
assembler will read source code, check 








STS - *12CB 
NL = *12FE 
CRL = *A86C 


TOP OF STORAGE 

NEXT LOCN FOR SOURCE 

BASIC RETURN-LINE FEED 


for errors, generate all necessary cross- 








BFF = *B7E8 


BASIC HEX-DEC CONVERSION 


references, and produce the desired 








BPF = *B96E 


BASIC DEC-ASCII CONVER 


assembled code. A listing may op- 








EXM = *ES90 
PHEX= *EAAC 


EXTENDED MONITOR 
PRINT HEX CHAR. 


tionally be produced by the assembler. 








DVD = *EE6C 
PRINT=*FFEE 


16-BIT DIUIDE ROUTINE 
PRINT VECTOR 


The OSI C1P Assembler-Editor 


350 


1391 




; PROGRAM 
*=*1391 


STARTS HERE 




366 


1391 


A900 


STRT LDA #0 




The OSI C1P assembler does all of 


370 


1393 


352F 


STA M 


INITIALIZE MINIMUM 


these things and has editing capability 
as well so that the user can conveniently 


3B0 
390 

400 


1395 
1397 
1399 


8530 
8531 
8532 


STA M+1 
STA M+2 
STA M+3 


TO ZERO 


enter source code from keyboard or 


410 


139B 


S564 


STA CTRO 


ALLOW PRINTING 


tape and edit it before assembly. One 


420 


139D 


38 


SEC 




desirable option lacking in the OSI 


438 
440 


139E 
13A6 


A50A 
E904 


LDA LL 
SBC #4 


SET POINTER LW TO LAST 


assembler is the ability to list or print 


450 


13A2 


8519 


STA LW 




out a symbol table following the 


460 


13A4 


A50B 


LDA LL+1 


LOCN IN SYMBOL TABLE 


listing. This is a table listing all sym- 
bols and labels together with their 


470 
480 
490 


13A6 
13A8 
13AA 


E900 
851A 
206EB9 


SBC #0 
STA LW+1 
JSR BPF 


INITIALIZE BASIC ROUTINE 


assigned values. A symbol table is a 


500 


13AD 


206CA8 


JSR CRL 




valuable adjunct in reading a program 


510 


13B0 


A9FF 


L00P1 LDA tt*FF 


MAKE MP > ANY POSSIBLE 


listing. When modifying a program, it 


520 

530 


13B2 
13B4 


8534 
ACCB12 


STA MP+1 
L00P2 LDY STS 


SYMBOL 

SET PTR+Y TO TOP 


helps you avoid inadvertent duplica- 


540 


13B7 


ADCC12 


LDA STS+1 


OF SYMBOL TABLE 


tion of symbols or labels. A complete 


550 


13BA 


851C 


STA PTR+1 


DECREMENT Y AS TABLE 


cross-reference program would be even 
more useful, and would not be difficult 


560 
570 


13BC 
13BE 


A900 
851B 


LDA #0 
STA PTR 


IS READ 


to write. For my own use, the extra ef- 












fort and extra memory required did not 










(Continued) 
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seem to be worthwhile. This article 
presents a symbol table lister for the 
OSI C1P (cassette version). 

Operation of the Assembler-Editor 

In the OSI assembler, source code is 
stored in memory as it is read in, begin- 
ning at the location following the end 
of the assembler. Numbered lines are 
inserted at their correct position. Each 
line begins with two bytes containing 
the line number in hex, in the order 
low, high. The line ends with a return 
($0D). Line feeds are not stored in the 
source text but are added during print- 
ing after each return. There is no 
special signal to indicate end-of-text as 
in BASIC; rather the editor keeps the 
next location available for text in a 
table (see below.) When an assembly is 
requested, a symbol table is built 
which begins at the last location in 
RAM and moves to successively lower 
addresses as more symbols are added. 
Each symbol requires six locations for 
storage: four bytes for the symbol itself 
(encoded) and two bytes for the value of 
the symbol. A symbol may be from one 
to six characters in length. It must 
begin with an alphabetic and the re- 
maining characters must be in the set 
A-Z, 0-9, :, ., or $. The symbol table is 
not sorted, nor is a hash table used; the 
symbols are simply entered in the order 
in which they are encountered. A for- 
ward reference causes an entry to be 
made in the symbol table with a value 
which appears to be random. When the 
symbol is subsequently defined, its 
value is adjusted at that time. 



Operation of the Symbol 
Table Lister 

The assembler maintains pointers 
to the start and end of source code and 
the start and end of the symbol table. 
These are shown as STMEM, NL, STS, 
and LL in the accompanying listing. Let 
me define "equivalence" as the numer- 
ical representation in which the sym- 
bol is stored, "value" as the value 
assigned to the symbol. E.g., "LABEL" 
always has the equivalence $4B2A2120; 
its value may be anything from $0000 
to $FFFF. 

The lister program begins by zero- 
ing a 4-byte memory location, M. It 
then scans the symbol table to find the 
smallest equivalence greater than or 
equal to M (the smallest symbol nu- 
merically is also the earliest alpha- 
betically.) The value of the found 
minimum equivalence is incremented 
by one and stored in M before the table 
is searched again. Thus the table is 



j Symbol Table Lister (continued) 








580 


13C0 


C010 


L00P3 CPY »*10 


WHEN Y GETS BELOW *l-0 




590 


13C2 


B00E 




BCS 


TRN 


ADD *80 AND DECREMENT 




600 


13C4 


98 




TYA 




PTR BY *8S TO AVOID 




610 


1 3C5 


0980 




OR A 


#*S0 


ADDRESSING ERRORS IF 




620 


13C7 


AS 




TAY 




Y DECREMENTS FROM 




630 


13C3 


A51B 




LDA 


PTR 


00 TO FF 




1 640 


13CA 


4980 




EOR 


#*80 






656 


13CC 


8518 




STA 


PTR 






66Q 


13CE 


1002 




BPL 


TRN 






670 


13D0 


C61C 




DEC 


PTR+1 






680 


13D2 


98 


TRN 


TYA 




COMPARE PTR+Y TO LW 




690 


13D3 


38 




SEC 




TO SEE IF SEARCH ENDED 




700 


13D4 


E90 3 




SBC 


#3 






710 


13D6 


AS 




TAY 








720 


13D7 


18 




CLC 








730 


13D8 


651 e 




ADC 


PTR 






740 


13DA 


08 




PHP 








750 


13D8 


C519 




CMP 


LW 






760 


13DD 


D018 




BNE 


CONT 






770 


13DF 


28 




PLP 








780 


13E0 


A51C 




LDA 


PTR+1 






790 


13E2 


6?Q2i 




ADC 


1+0 






800 


13E4 


C51A 




CMP 


LW+1 






810 


13E6 


D08E 




BNE 


CM1 


IF MP+1=*FF THEN 




820 


13E8 


A534 




LDA 


MP+1 


SYMBOL TABLE EXHAUSTED 




830 


13EA 


C9FF 




CMP 


#*FF 


SO QUIT BUT IF 




840 


13EC 


D048 




BNE 


PRNT 


MP+K*FF THEN A SYMBOL 




850 


13EE 


A900 




LDA 


#0 


HAS BEEN FOUND PRINT IT 




860 


13F0 


8D8502 




STA 


PFL 


TURN OFF SAVE FLAG 




870 


13F3 


4C00E8 




JMP 


EXM 






830 


13F6 


08 


CM1 


PHP 








890 


13F7 


23 


CONT PLP 


DOUBLE LOOP FOR 32-BIT 




900 


13F8 


A290 




LDX 


#0 


SUBTRACT 




910 


13FA 


38 


CLOOP SEC 


WHEN X=0 , COMPARE 




920 


13FB 


81 IB 




LDA 


(PTR) ,Y 


CURRENT VALUE IN SYMBOL 




930 


13FD 


F531 




sec 


M+ 2 , X 


TABLE WITH M IF VALUE 




i 940 


13FF 


C8 




I NY 




IS <M THEN OMIT 2d LOOP 




950 


1400 


8118 




LDA 


(PTR) ,Y 


IF UALUE=>M THEN 




966 


1402 


F532 




SBC 


M+3,X 


COMPARE CURRENT VALUE 




970 


1404 


38 




DEY 




WITH MINIMUM (THIS LOOP) 




980 


1405 


38 




DEY 




IN MP IF VALUE=>MP THEN 




990 


1406 


38 




DEY 




CONTINUE SEARCH BUT 




1000 


1407 


81 IB 




LDA 


(PTR) ,Y 


IF VALUE <MP THEN 




1010 


1409 


F52F 




SBC 


M,X 


REPLACE MP BY- 




1020 


1408 


CS 




I NY 




NEW MINIMUM 




1030 


140C 


B11B 




LDA 


<PTR> ,Y 






1040 


140E 


F530 




SBC 


M+l ,X 






1050 


1410 


08 




PHP 








1060 


1411 


E000 




CPX 


#0 






1070 


1413 


D008 




BNE 


TMP 






1080 


1415 


28 




PLP 








1090 


1416 


9019 




BCC 


NXUiORD 






1 100 


1418 


C8 




I NY 








1110 


1419 


A204 




LDX 


#4 






1120 


141B 


D0DD 




BNE 


CLOOP 






1 130 


141D 


28 


TMP 


PLP 








1140 


141E 


B01 1 




BCS 


NXWQRD 






1 150 


1420 


A200 




LDX 


#0 






; 1160 


1422 


88 




DEY 








1 1 170 


1423 


B11B 


MUMP LDA (PTR) .Y 


COPY SYMBOL (CODED) AND 




1180 


1425 


9533 




STA 


MP,X 


ITS VALUE FROM PTR+Y 




1190 


1427 


C8 




I NY 




INTO MP 




1 1200 


1428 


E8 




I NX 








1210 


1429 


E006 




CPX 


#6 






1220 


1428 


D0F6 




BNE 


MUMP 






1230 


142D 


98 




TYA 








1240 


142E 


E905 




SBC 


#5 






1 250 


1430 


A8 




TAY 








1260 


1431 


88 


NXWORl 






1270 


1432 


88 




DEY 








1280 


1433 


4CC013 




JMP 


L00P3 






1290 


1436 


A20S 


PRNT LDX #S 


FILL PRINT BUFFER 




1300 


1438 


A920 




LDA 


tt*20 


WITH SPACES 




1310 


143A 


951E 


STB 


STA 


BFR-1 ,X 






1320 


143C 


CA 




DEX 








1330 


143D 


D0FB 




BNE 


STB 






1340 


143F 


B533 


CPM 


LDA 


MP,X 


COPY CURRENT MINIMUM TO 




1350 


1441 


952F 




STA 


M,X 


GLOBAL MINIMUM 




1360 


1443 


E8 




I NX 








1370 


1444 


E004 




CPX 


tt4 






1380 


1446 


D0F7 




BNE 


CPM 






1390 


1448 


E631 




INC 


M+2 


INCREMENT GLOBAL MIN. 




1400 


144A 


D002 




BNE 


LOOPS. 


FOR NEXT PASS 




1410 


144C 


E632 




INC 


M+3 






1420 


144E 


A000 


L00P3. LDY #0 


NOTE L00P3. NOT= L00P3 





94 



MICRO - The 6502/6809 Journal 



No. 49- June 1982 



Symbol Table Lister (continued) 








1430 


1450 


8414 




STY 


XP 






1440 


1452 


A901 




LDA 


#1 


LOAD BYTE COUNTER TO 




1450 


1454 


3510 




STA 


BC 


SIGNAL FIRST PAIR OF 




14<60 


1456 


A203 


L00P4 LDX t*3 


BYTES BEING DECODED 




1470 


1458 


B93308 


L00P4P 


LDA MP,Y 






1488 


145B 


85DC 




STA 


*DC 






1490 


145D 


C8 




I NY 








1500 


145E 


B93300 




LDA 


MP,Y 






1518 


1461 


85DD 




STA 


*DD 






1520 


1463 


C8 




I NY 








1538 


1464 


BDDC15 


LOOPS LDA DUS,X 






1540 


1467 


85DE 




STA 


*DE 






1556 


1469 


CA 




DEX 








1568 


146A 


BDDC15 




LDA 


DVS,X 






1578 


146D 


85DF 




STA 


*DF 






1580 


146F 


CA 




DEX 








1590 


1470 


8615 




STX 


XSU 






1680 


1472 


8416 




STY 


YSU 






1618 


1474 


A204 




LDX 


#4 






1620 


1476 


A900 




LDA 


#0 






1630 


1478 


95D7 


STRZER 


STA *D7,X 






1648 


147A 


CA 




DEX 








1650 


147B 


D0FB 




BNE 


STRZER 






1660 


147D 


A210 




LDX 


#*10 


DECODE INTO ASCII 




1670 


147F 


206CEE 




JSR 


DVD 


QUOTIENT RETURNED IN X 




1680 


1482 


3A 




TXA 




IF QUOTIENTS, END; EXIT 




1690 


1483 


F04C 




BEQ 


GADR 


IF QUOTIENT=01 TO *1A THEN 




1700 


1485 


C91B 


NXCHR 


ALPHABETIC ADD *40 




| 1710 


1487 


98 0A 




BCC 


ALPH 


IF QUOTIENTS IB TO *24 THEN 




1720 


1489 


C925 




CMP 


tt*25 


NUMERIC ADD *15 




1730 


MSB 


9008 




BCC 


NUM 


IF QU0TIENT>*24 THEN : . OR 


* 


1740 


148D 


AA 




TAX 




TABLE LOOK-UP 




1750 


148E 


BDBB15 




LDA 


CHR-*25,X 






1760 


1491 


D004 




BNE 


PP 






1770 


1493 


692B 


ALPH ADC tt*2B 






1780 


1495 


6915 


NUM 


ADC 


tt*15 






1790 


1497 


A614 


PP 


LDX 


XP 






1800 


1499 


951F 




STA 


BFR,X 


PUT ASCII CHAR INTO BFR 




1310 


149B 


E614 




tnc 


XP 






1820 


149D 


EO02 




CPX 


tt2 






1830 


149F 


D006 




BNE 


TSR 






1840 


14A1 


C610 




DEC 


BC 






1850 


14A3 


A416 




LDY 


YSV 






I860 


14A5 


D0AF 




BNE 


L00P4 






1870 


14A7 


A5D8 


TSR 


LDA 


*D8 






1888 


14A9 


D004 




BNE 


TSTX 






1890 


14AB 


A5D9 




LDA 


*D9 






1900 


MAD 


F022 




BEQ 


GADR 






1910 


14AF 


A615 


TSTX LDX XSV 






1920 


14B1 


1003 




BPL 


LPREP 






1936 


14B3 


A5D8 




LDA 


*D8 






1940 


14B5 


A000 




LDY 


m 






1950 


14B7 


84D8 




STY 


*D8 






I960 


14B9 


F0CA 




BEQ 


NXCHR 






1970 


14BB 


A5D8 


LPREP LDA *D8 






1988 


14BD 


85DC 




STA 


*DC 






1990 


14BF 


A5D9 




LDA 


*D9 






2080 


14C1 


85DD 




STA 


*DD 






2810 


14C3 


A416 




LDY 


YSV 






2020 


14C5 


D89D 




BNE 


LOOPS 






2830 


14C7 


C610 


XIT 


DEC 


BC 






2040 


14C9 


3806 




BMI 


GADR 






2050 


14CB 


A615 




LDX 


XSV 






2060 


14CD 


A416 




LDY 


YSU 






20 70 


14CF 


D087 




BNE 


L00P4P 






2080 


14D1 


A200 


GADR LDX #0 


PRINT 8 CHARS FROM BFR 




2090 


14D3 


B51F 


GB* 


LDA 


BFR,X 






2100 


14D5 


20EEFF 




JSR 


PRINT 






21 10 


14D8 


E8 




I NX 








2120 


14D9 


E008 




CPX 


#8 






2130 


14DB 


D8F6 




BNE 


GB* 






2140 


14DD 


A205 




LDX 


#5 






2150 


14DF 


B533 




LDA 


MP,X 


PRINT SAVED VALUE OF 




2160 


14E1 


20ACEA 




JSR 


PHEX 


SYMBOL (CURRENT LOOP) 




2170 


14E4 


CA 




DEX 




IN HEX 




2180 


14E5 


B533 




LDA 


MP,X 






2190 


14E7 


20ACEA 




JSR 


PHEX 






2200 


14EA 


A060 




LDY 


#0 


SET UP SEARCH OF ASCII 




2210 


14EC 


A200 




LDX 


#0 


SYMBOL FOR DUPLICATE 




2220 


14EE 


8613 




STX 


MCTR 


CHARACTERS 




2230 


14F0 


8612 




STX 


CSV 






2240 


14F2 


B91F00 


L00P6 LDA SFS,Y 






2250 


14F5 


C3 




I NY 








2260 


14F6 


C920 




CMP 


#*20 






2270 


14F8 


F01C 




BEQ 


CXIT 







searched once for each symbol to be 
printed. This method is not as efficient 
as a true sort, but it requires less 
memory. For a table of 100 symbols, 
the output is only slightly slower than 
the rate at which characters are written 
to the screen. After the minimum equi- 
valence has been found in a particular 
pass [lines 510-1280), the symbol is 
decoded into its ASCII value (lines 
1290-2070). The ASCII representation 
of the symbol is searched for multiple 
characters and converted to the form 
used by the assembler for source code 
(e.g., L666= $4C363636 -^$4C36FE) 
(lines 2080-2530]. 

Next, the source file is searched for 
the line defining the symbol (lines 
2540-2950) . If the symbol is not defined 
(and this will have caused an assembler 
error) the lister program prints a ? in- 
stead of a line number. Additionally, if 
the symbol is more than two characters 
long, the fourth character will be an 
embedded ?. Finally, the symbol, its 
value, and the line number where de- 
fined are all printed out (lines 
2960-3250). This process is repeated 
until all symbols have been found and 
printed out. 

To conserve memory space, the pro- 
gram uses routines stored in BASIC 
ROM and in an extended monitor 
EPROM (EXMON, DVD, and PHEX). 
The jump to EXMON at the end of the 
program (line 870) may be replaced by a 
jump to the monitor ($FE00) or to the 
assembler ($1300). The routines for 
16-bit division (DVD) and printing a 
hex character (PHEX) are listed for the 
benefit of those who do not have the ex- 
tended monitor. Since the assembler 
begins at $0240, PHEX can be relocated 
to $0222-0238 and DVD to the end of 
memory, provided the contents of STS 
are changed from $FF to $DD. 

The program as written here begins 
at $1391 and runs to $15E3. The value 
in STMEM has accordingly been changed 
to $15E4. Note that this change must 
be made as soon as the assembler is 
loaded, before any source code is 
entered. This reduces the space avail- 
able for an assembler source file by 
$253 (595 decimal) locations. If this 
reduction in space turns out to be 
crucial, the lister could be relocated to 
overlay part of the assembler. If this is 
done, the part of the assembler to be 
overlaid should be stored on tape. The 
assembler can then be reused by 
loading only the short overlay file 
rather than the entire program. The 
lister uses some page-zero locations for 
storage, but does not change any values 
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required by the assembler, so the 
assembler can be re-run after running 
the lister if so desired. Output goes to 
the print vector at $FFEE which is a 
JMP (indirect) to $021 A, 02 IB. These 
locations are initialized by the monitor 
to send output to the screen or tape, 
depending on the value in $0205. They 
can, of course, be changed to point to a 
print routine if a printer is available. 

Summary 

This article presents a symbol table 
listing program written specifically for 
the cassette-based assembler furnished 
for the OSI C1P. The attached listing is 
followed by a symbol table printed out 
by this program. The assembler instruc- 
tion manual appears to apply to the OS- 
65D version as well, though some ad- 
dresses would need to be changed to 
run this lister program with it. 



The author may be contacted at 13917 
Congress Drive, Rockville, MD 20853. 



OSI-C4PMF 



GOBBLER MANIA 

Attempt the maze eating 

all you can but don't get caught 

Full color & sound! 

5 1 / 4 in. disk .... $12.95 

SENTINEL 

Is there any enemy around 
the next hall? Better ready 

your crossbow for battle. 

5 1 /4 in. disk .... $19.95 



We also have: ALPHA BASE, 

RADAR TANK, HYPER ATTACK, 

and many utilities too! 

All in 100% machine code. 

Send $1 for complete 

catalog to: 



INTERESTING 

SOFTWARE 

21101 S. Harvard Blv. 
Torrance, Cal. 90501 




Symbol Table Lister (continued) 






, 2280 


14FA 


C512 




CMP 


CSV 




2290 


14FC 


F014 




BEG 


DUPL 




2300 


14FE 


48 




PHA 






2310 


14FF 


A513 




LDA 


MCTR 




2320 


1501 


F607 




BEQ 


STOR 




2330 


1503 


9527 




STA 


DEST,X 




2340 


1505 


E8 




I NX 






2350 


1506 


A900 




LDA 


#6 




2360 


1508 


8513 




STA 


MCTR 




2370 


150A 


68 


STOR PLA 




2380 


150B 


9527 




STA 


DEST,X 




2390 


150D 


E8 




I NX 






2400 


150E 


8512 




STA 


CSV 




2410 


1510 


D0E0 




BNE 


LOOP 6 




2420 


1512 


C613 


DLIPL DEC 


MCTR 


DECREMENT MCTR FOR EACH 


2430 


1514 


D0DC 




BNE 


L00P6 


MULTIPLE CHARACTER 


2440 


1516 


A513 


CXIT LD£ 


MCTR 


IF NO DUPLICATE THEN 


2450 


1518 


F003 




BEQ 


CRTN 


EXIT 


2460 


151A 


9527 




STA 


DEST,X 


STORE NEGATIVE VALUE IN 


2470 


151 C 


ES 




I NX 




DEST IF DUPLICATE CHAR 


2480 


151D 


8611 


CRTN STX CC 


NOW DEST IS IN ASM 


2490 


151F 


A920 




LDA 


tt*20 


SOURCE FORMAT 


2500 


1521 


9527 




STA 


DEST,X 




2510 


1523 


E8 




I NX 






2520 


1524 


E00S 




CPX 


#8 




2530 


1526 


D0F7 




BNE 


CRTN +2 




2540 


1528 


ACC912 




LDY 


STMEM 


SET UP SEARCH OF SOURCE 


2550 


152B 


ADCA12 




LDA 


STMEM+ 1 


CODE FOR SYMBOL 


2560 


152E 


851E 




STA 


PTR2+ 1 




2570 


1530 


A900 




LDA 


#0 




2580 


1532 


S51D 




STA 


PTR2 




! 2590 


1534 


A200 


GORD LDX #0 




2600 


1536 


CCFE12 




CPY 


NL 


IF SOURCE EXHAUSTED 


2610 


1539 


D00A 




BNE 


GORD . 


AND NO MATCH FOUND 


2620 


153B 


A51E 




LDA 


PTR2+1 


THEN PRINT ? 


2630 


153D 


CDFF12 




CMP 


NL+1 




2640 


1540 


D003 




BNE 


GORD. 




2650 


1542 


4CC415 




JMP 


QUEST 




! 2660 


1545 


20D215 


GORD. JSR INCY 




2670 


1543 


8517 




STA 


LN 




2680 


154A 


20D215 




JSR 


INCY 




2690 


154D 


8518 




STA 


LN+1 




2700 


154F 


20D215 


LS 


JSR 


INCY 




2710 


1552 


30FB 




BMI 


LS 


SKIP LEADING BLANKS 


2720 


1554 


C920 




CMP 


#*20 


BOTH SINGLE AND MULT. 


2730 


1556 


F0F7 




BEQ 


LS 




2740 


1558 


D003 




BNE 


TNC 




2750 


155A 


20D215 


NC 


JSR 


I NCY 




2760 


155D 


D527 


TNC 


CMP 


DEST,X 


COMPARE SOURCE CODE 


2770 


155F 


D00A 




BNE 


NXLN* 


TO SAVED SYMBOL 


2780 


1561 


E8 




I NX 






2790 


1562 


E411 




CPX 


CC 




2800 


1564 


F00E 




BEQ 


FOUND 


MATCH OF CORRECT 4* 


2810 


1566 


D0F2 




BNE 


NC 


OF CHARACTERS 


2820 


1568 


20D215 


NXLN JSR INCY 




2830 


156B 


C90D 


NXLN* CMP tt*0D 




2840 


156D 


F0C5 




BEQ 


GORD 




2850 


156F 


20D215 




JSR 


INCY 




2860 


1572 


D0F7 




BNE 


NXLN* 




2870 


1574 


20D215 


FOUND JSR INCY 


IF FOLLOWED BY TERMINATOR 


2880 


1577 


C920 




CMP 


#*20 


THEN TRUE FIND 


2890 


1579 


F00C 




BEQ 


TRFIND 


ELSE BURIED IN LONGER 


2900 


157B 


C90D 




CMP 


#*0D 


SYMBOL CONTINUE SEARCH 


2910 


157D 


F008 




BEQ 


TRFIND 




2920 


157F 


C92A 




CMP 


#'* 




2930 


1581 


F004 




BEQ 


TRFIND 




2940 


1583 


C93D 




CMP 


#' = 




2950 


1585 


D0E4 




BNE 


NXLN* 




2960 


1587 


A517 


TRFIND LDA LN 




2970 


1589 


35AE 




STA 


*AE 


SET UP CALL TO BASIC 


2980 


158B 


A513 




LDA 


LN+ 1 


CONMERS I ON ROUT I NES 


2990 


158D 


85AD 




STA 


SAD 




30 


15SF 


A290 




LDX 


8*90 




301 


1591 


38 




SEC 






30 20 


1592 


20E8B7 




■JSR 


BFF 


CONU HEx TO DECIMAL 


38 30 


1595 


20 6EB9 




JSR 


BPF 


CONV DEC TO ASCI I 


30 40 


1598 


A000 




LDY 


#0 


STORED STARTING AT *010W 


30 50 


159A 


B 9900 1 


T? 


LDA 


BCB,Y 


SEARCH BCB FOR TERMINATOR 


3060 


159D 


F0 3 




BEQ 


NX 


ADJUST LEADING SPACES SO 


30 70 


159F 


C3 




I NY 




NUMBER IS R I GHT-JUST I F I ED 


30 80 


15A0 


D0F8 




BNE 


TZ 




30 90 


1 5A2 


98 


NX 


TYA 






310 


15A3 


49FF 




E0R 


#*FF 




3110 


15A5 


13 




CLC 
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Symbol Table Lister (con 


tinued) 




Sample Symbol Table Listing 

ALPH 1493 1770 














BC 


0010 


50 








3126 15A6 6908 


ADC #8 




BCB 


0100 


220 








3130 15A8 AS 


TAY 




BFF 


B7E8 


280 








3140 15A9 A920 


SB: LDA #*2u 




BFR 


001F 


160 








3150 15AB 20EEFF 


SB JSR PRINT 




BPF 


B96E 


290 








3168 15AE 88 


DEY 




CC 


0011 


60 








3170 15AF D0FA 


BNE SB 




CHR 


15E0 


3420 








3180 15B3 A000 


LDY #0 




CLOOP 


13FA 


910 








3190 15B3 B90001 


SN LDA BCB,Y PRINT LINE NUMBER 




CM1 


13F6 


880 








3200 15B6 F006 


BEQ PXIT 




CONT 


13F7 


890 








3210 15B3 2SEEFF 


JSR PRINT 




CPM 


143F 


1346 








3220 15BB C8 


I NY 




CRL 


A86C 


270 








3230 15BC D0F5 


BNE SN 




CRTN 


151D 


2480 








3240 15BE 20 6CAS 


PXIT JSR CRL 




CSV 


0012 


70 








3250 15C1 4CB8 13 


JMP LOOP1 CONTINUE 




CTRO 


0064 


200 








3260 15C4 A93F 


QUEST LDA *'? SYMBOL NOT FOUND IN 




CXIT 


1516 


2440 








3270 15C6 SD0 00 1 


STA BCB SOURCE PRINT ? 




DEST 


0027 


170 








3280 15C9 A90 


LDA #0 




DIVIDE 


EE61 


3600 








3290 15CB 8D0101 


STA BCB+1 




DUPL 


1512 


2420 








3300 15CE A006 


LDY #6 




DVD 


EE6C 


320 








3310 15D0 D0D7 


BNE SB: 




DVS 


15DC 


3400 








3320 15D2 BUD 


INCY LDA <PTR2) ,Y 




DV1 


EE7F 


3780 








3330 15D4 CS 


I NY 




EXM 


E800 


300 








3340 15D5 D002 


BNE I XT 




FOUND 


1574 


2870 








3350 15D7 E61E 


INC PTR2+1 




GADR 


14D1 


2080 








3360 15D9 48 


I XT PHA 




GB* 


14D3 


2090 








3370 15DA 68 


PLA 




GORD 


1534 


2590 








3380 15DB 60 


RT3 




GORD, 


1545 


2660 








3390 15DC 


; DIVISORS FOR CODED LABELS 




INCY 


15D2 


3320 








3400 15DC 00 


DVS .BYTE 0,*28,6,*40 




I XT 


15D9 


3360 








3400 15DD 28 






LL 


000A 


40 








3400 15DE 06 






LN 


miv 


120 








3400. 15DF 40 






LOOP1 


13B6 


510 








3410 15E0 


j NON-ALPANUMERICS ALLOWED IN LABELS 




L00P2 


13B4 


530 








3420 15E0 3A 


CHR .BYTE ' : .*?' 




L00P3 


13C0 


580 








3420 15E1 2E 






L00P3. 


144E 


1420 








3420 15E2 24 






L00P4 


1456 


1460 








3420 15E3 3F 






L00P4P 


1458 


1470 








3430 EAAC 


*=*EAAC 




LOOPS 


1464 


1530 




■ 




3440 EAAC 


; PHEX 




L00P6 


14F2 


2240 








3450 EAAC 43 


PHA 




LPREP 


14BB 


1??® 








3460 EAAD 4A 


LSR A 




LS 


154F 


2708 








3470 EAAE 4A 


LSR A 




LUI 


0019 


130 








3480 EAAF 4A 


LSR A 




M 


002F 


1S0 








3490 EA80 4A 


LSR A 




MCTR 


0013 


80 








3500 EAB1 20B5EA 


JSR PHI 




MP 


033 


190 








3510 EAB4 68 


PLA 




MVMP 


1423 


1 170 








3520 EAB5 290F 


PHI AND #*0F 




NC 


155A 


2750 








3530 EAB7 930 


ORA #*30 




NL 


12FE 


260 








3540 EAB9 C93A 


CMP #*3A 




NUM 


1495 


1 780 








3550 EABB 9002 


BCC PH2 




NX 


15A2 


3090 








3560 EABD 69&6 


ADC #6 




NXCHR 


1485 


170 








3570 EABF 4CEEFF 


PH2 JMP PRINT 




NXLN 


1568 


2820 








3580 EE61 


*=*EE61 




NXLN* 


156B 


2830 








3590 EE61 


; DIVIDE ROUTINE 




NXUIORD 


1431 


1268 




I < 




3600 EE61 26DC 


DIVIDE ROL *DC 




PFL 


29 5 


238 








3610 EE63 26DD 


ROL *DD 




PHEX 


EAAC 


318 








3620 EE65 CA 


DEX 




PHI 


EAB5 


3528 








3630 EE66 3017 


BMI DV1 




PH2 


EABF 


3578 








3640 EE68 26D8 


ROL *D8 




PP 


1497 


1798 








3650 EE6A 26D9 


ROL *D9 




PRINT 


FFEE 


338 








3660 EE6C 


; DVD ENTRY TO DIVIDE ROUTINE 




PRNT 


1436 


1 298 








3670 EE6C 38 


SEC 




PTR 


00 IB 


148 








3680 EE6D A5D8 


LDA *D8 




PTR2 


1 D 


1 58 








3690 EE6F E5DE 


SBC *DE 




PX I T 


15BE 


3248 








3700 EE71 A8 


TAY 




QUEST 


15C4 


3268 








3710 EE72 A5D9 


LDA *D9 




SB 


15AB 


3158 








3720 EE74 E5DF 


SBC *DF 




SB: 


15A9 


3148 








3730 EE76 90E9 


BCC DIUIDE 




SN 


15B3 


3198 








3740 EE78 85D9 


STA *D9 




STB 


1 43A 


1318 








3750 EE7A 98 


TYA 




STMEM 


12C9 


248 








3760 EE7B S5D8 


STA *D8 




ST OR 


150A 


2378 








3770 EE7D B0E2 


BCS DIVIDE 




STRT 


1391 


368 








3780 EE7F A4DD 


DV1 LDY *DD 




STRZER 


1478 


1 638 








3790 EE81 A6DC 


LDX *DC 




STS 


12CB 


258 








3300 EE83 60 


RTS 




TMP 

TNC 

TRFIND 

TRN 

TSR 

TSTX 

T7 

XIT 

XP 

XSV 

YSV 


141D 
155D 
1587 
13D2 
14A7 
14AF 
159A 
14C7 

0014 
0015 
0016 


1 1 38 
2768 
2968 
680 
1878 
1910 
3050 
28 30 
98 

100 

1 1 AMCRO 
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COLOR COMPUTER USERS 

THE POWERFUL FLEX DISK OPERATING SYSTEM WITH 
HUNDREDS OF SOFTWARE PACKAGES IS NOW AVAILABLE! 

Now you can run FLEX, OS-9 and Radio you can run it and even change it! ! You 
Shack disk software on your Color Com- can load Color Computer cassette soft- 
puter. If you have a 32K Color Computer ware and save it to FLEX disk. Single 
with the Radio Shack disk system, all you Drive Copy, Format and Setup corn- 
need to do is make a trivial modification mands plus an online help system are in- 
to access the hidden 32K, as described in eluded. 



the Feb. issue of COLOR COMPUTER 
NEWS and the April issue of '68' Micro. 
You can get FLEX from us right now. 
OS-9 will be ready by summer. Please 



Installing FLEX is si 
disk and type: 

RUN "FLEX" 



nple. Insert the 



note that this will only work with the That's all there is to it! You are now up 
Radio Shack disk system and 32K/64K and run ning in the most popular disk 
memory chips that RS calls 32K. Maybe p era tjng system for the 6809. There are 
they put 64K's in yours, too. If you don't hundreds of software packages now run- 
have a copy of the article, send a legal ning un d er the FLEX system. Open your 
size SASE (40$ stamps) and we'll send it color Computer to a whole new world of 
to you. software with FLEX. 
In case you don't understand how this FLEX $99.00 



INCLUDES OVER 25 UTILITIES! 



FLEX Editor 


$ 50.00 


FLEX Assembler 


$ 50.00 


FLEX Standard BASIC 


$ 65.00 


FLEX Extended Business BASIC 


$100.00 



works, I'll give you a brief explanation. 

The Color Computer was designed so 

that the roms in the system could be 

turned off under software control. In a 

normai Color Computer this would only 

make it go away. However, if you put a Other languages available inciuae; 

program in memory to do something first FORTH, Pascal, Fortran77, 'C,' A/BASIC 

(like boot in FLEX or OS-9), when you turn Compiler, plus more. 

off the roms, you will have a full 64K RAM Application packages include; A/R, G/L, 

System with which to run your program. A/P, Inventory, Electronic Spreadsheets, 

Now, we need the other half of the 64K Accounting, Database programs and 

ram chips to work, and this seems to be more. SEND FOR LIST. 
the case most of the time as the article C0LQR C0MPUTER COMPLETE 

states. Of course, you could also put 64K W|JH g4K RAM 24K RQM smGL£ D|SK 

chl P s m ' DRIVE AND FLEX, SET UP AND READY 

Some neat utilities are included. JO RUN FOR ONLY $1,275. Includes 60 

MOVEROM moves Color Basic from day extended warranty. If you have a 

ROM to RAM. Because it's moved to RAM Computer, call about RS disk controllers 

you can not only access it from FL EX, and drives. 

FRANK HOCG LABORATORY, INC. 

130 MIDTOWN PLAZA • SYRACUSE NEW YORK 13210 * (315)474-7856 
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THE PROFESSIONAL'S CHOICE 
FORTH — A Tool for Craftsmen! 

It has been said that if Chippendale had made programs he would 
have used FORTH as his tool. If you want to learn how to program, 
use a teaching language— PASCAL or BASIC. If you know how to 
program, use a language designed for craftsmen — FORTH. 

FORTH Systems 

For all FLEX systems: 6800 & 6809. Specify 5" or 8" diskette and 
hardware configuration. For standalone versions, write or call. 

** tFORTH— extended fig-FORTH{1 disk) $100 ($15) 

** tFORTH + — extended more! (3 5" or 2 8" disks) $250 ($25) 

tFORTH + includes 2nd screen editor, assembler, extended 

data types and utility vocabularies, GOING FORTH CAI course 

on FORTH, games, and debugging aids. 

TRS-80 C0LORFORTH - 10K ROM Pack 

Full screen editor. Will work on 4K, 16K, or 32K systems 
$110 ($20). Disk versions available. 

Applications Programs 

** firmFORTH 6809 tFORTH + only $350 ($10) 

For target compilations to rommable code. Deletes unused 
code and unneeded dictionary heads. Requires tFORTH + . 

** TINY PASCAL compiler in FORTH. 6800/09 $75 ($20) 

** FORTH PROGRAMMING AIDS: Extensive debugging, decom- 
piling, and program analysis tools. $1 50 ($10) 

Manuals alone, price in (). Add $5/system for shipping. $12 for 

foreign air Talbot Microsystems 

1927 Curtis Ave., Redondo Beach, CA 90278 
(213)376-9941 

(TM) tFORTH, COLORFORTH and firmFORTH are trademarks of Talbot Microsystems. 

(TM) FLEX is a trademark of Technical Systems Consultants. 



PLAY THE NUMBERS 
GAME- 



U "*"- AND WIN 

With ELF and TWG/ARIMA i 



STATISTICAL 
OFTWARE 



performs 

• factor analysis 
multiple regression 
stepwise, discriminant analysis 
cross tabulations 
1 and 2 way ANOVA 
as well as all basic statistics, including 
skewness, kurtosises, etc. and Chi- 
Square. ELF will also create and edit a 
data base as well as visually depict 
ita in scattergrams and histograms 
(bar graphs)... and more 
$200.00 




TWG/ 
ARIMAlS 

invaluable 
users interested 
in time series. IT 
Box-Jenkins package 
identifies 

• seasonal and non- 
seasonal differencing 

• Box-Cox transformations 
estimates 

• correlation between coefficients 

• Box-Pierce Q statistics and ' 
significance 

• t statistics 

• probabilities and predicts 

• various lead times 

• starting points 

• confidence levels for time series forecast 
data 

$300.00 

Each program comes with database manager, numeric 

software keypad and requires an Apple II with Applesoft 

48 K, and DOS 3.3 

To order write to 

The Winchendon Group 

3907 Lakota Road 

P.O. BOX 10114 M ™oxoenocQ7 

Alexandria, VA 22310 (703) 960-2587 



THE WINCHENDON GROUP 



PRINT ][ 

THE ULTIMATE PRINT STATEMENT 
FOR THE APPLE IE COMPUTER. 



Standard Apple Output 


PRINT ][ Output 


$1234.56 


$1234.56 1 


$12 


$ 12.00 


$1.9 


$ 1.90 


$.75 


$ .75 


$765 


$ 765.00 



Print TV I 
(without Print lO 



Print §1 

(Field Width 8 with 

2 decimal places.) 



□ Updates Applesoft PRINT to accept: 

• User-specified print formatting. 

• X, Y cursor positioning. 

□ Simplifies tabular displays. 

D Transparent to user— not affected by re-booting. 

IP YOUR TIME IS WORTH MONEY, 
THEN YOU NEED PRINT ][. 

Available at your local dealer for $24.95 or write to. 
Computer Systems Design 

2 139 Jackson Blvd. 
Rapid City, SD 57701 WTDPf 7 



VISA 



@£) (605J 341-3662 
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Resource Update 






A list of magazines which 
contain information about the 
6502/6809 microprocessors on a 
reasonably regular basis. 

Did you ever wonder just what 
magazines are rich sources of informa- 
tion on the 6502/6809 microproces- 
sors, 6502/6809-based microcom- 
puters, accessory hardware and soft- 
ware? For several years this writer has 
been assembling a bibliography of 
6502/6809 references related to hobby 
and small business systems. The ac- 
companying list of magazines has been 
compiled from this bibliography. An at- 
tempt has been made to give up-to-date 
addresses and subscription rates for the 
magazines cited. Subscription rates are 
for the U.S. Rates to other countries 
normally are higher. 



GENERAL 6502/6809 

MICRO: The 6502/6809 Journal 

$24.00 per year, 12 issues 
P.O. Box 6502 
Chelmsford, MA 01824 

Compute! 

$20.00 per year, 12 issues 
515 Abbott Drive 
Broomall, PA 19008 



GENERAL COMPUTER 

Byte 

$19.00 per year, 12 issues 
Byte Subscriptions 
P.O. Box 590 
Martinville, NJ 08836 

Computer Shopper 

$10 per year, 12 issues 
Glenn Patch, Editor 
P.O. Box F 

Titusville, FL 32780 

Computing Today 

£ 15.15, 12 issues 

Argus Specialists Publications, Ltd. 

145 Charing Cross Road 

London WC2H 0EE 

England 

Creative Computing 

$20.00 per year, 12 issues 
P.O. Box 789-M 
Morristown, NJ 07960 



CSRA Computer Club Newsletter 

$6.00 per year 
P.O. Box 284 
Augusta, GA 30903 



Dr. Dobb's Journal 

$21.00 per year, 12 issues 
People's Computer Co. 
P.O. BoxE 
1263 El Camino Real 
Menlo Park, CA 94025 



Epson Information Exchange Newsletter 

$12.00 per year, 12 issues 
Epson Users Group 
c/o Frank Barden 
136 Candlewick Drive 
Wendell, NC 27591 



IEEE Micro 

$23.00 per year, quarterly 
IEEE Computer Society 
10662 Los Vaqueros Circle 
Los Alamitos, CA 90720 

Interface Age 

$18.00 per year, 12 issues 
McPheters, Wolfe and Jones 
16704 Marquardt Ave. 
Cerritos, CA 90701 

Microcomputing 

$25.00 per year, 12 issues 
Wayne Green, Inc. 
80 Pine Street 
Peterborough, NH 03458 

Microcomputer Index 

$30.00 per year, quarterly 
Microcomputer Information Services 
2646 El Camino Real, Box 247 
Santa Clara, CA 95051 

Personal Computer World 

£ 8.00, 12 issues 

Sportscene Publishers (PCW) Ltd. 

14 Rathbone Place 

London W1P IDE 

England 

Personal Computing 

$18.00 per year, 12 issues 
Hayden Publishing Co. 
4 Disk Drive, Box 1408 
Riverton, NJ 08077 

Popular Computing 

$15.00 per year, 12 issues 
Byte Publications 
P.O. Box 307 
Martinville, NJ 08836 



Practical Computing 

£ 10.00, 12 issues 

IPC, Business Press, Ltd. 

Quadrant House 

The Quadrant, Sutton 

Surrey SM2 5AS 

England 

Purser's Magazine 

$12.00 per year, 4 issues 
c/o Robert Purser 
P.O. Box 466 
El Dorado, CA 95623 

SoftSide 

$30.00 per year, 12 issues 
P.O. Box 68 
Milford, NH 03055 

Spreadsheet 

$25.00 per year 

Visigroup— Visicalc User Group 

P.O. Box 254 

Scarsdale, NY 10583 

APPLE-RELATED 
PUBLICATIONS 

The Abacus II Newsletter 

$18.00 per year, 6 issues 
5302 Camino Alto Mira 
Castro Valley, CA 94546 

Adam and Eve Newsletter 

$12.00 per year 

Adam and Eve Apple II Users' Group 
11 South Hancock Street 
Madison, WI 53703 

Apple 

$2.00 per issue, quarterly 
Apple Computer Co. 
10260 Bandley Drive 
Cupertino, CA 95014 

Apple Assembly Line 

$15 per year, 12 issues 
S-C Software 
P.O. 280300 
Dallas, TX 75228 

Apple Barrel 

$18.00 per year, 9 issues 

c/o Lee E. Gilbreth 

Houston Area Apple Users Group 

3609 Glenmeadow Dr. 

Rosenberg, TX 77471 



Apple-Dayton Newsletter 

$18.00 per year 

39 Mello Ave. 

Dayton, Ohio 45410 (continued) 
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Apple Bits 

$20.00 per year, 10 issues 
$2.00 application fee 
NEO Apple Corps 
c/o Norm Henke 
21750 Miller Ave. 
Euclid, OH 44119 

The Apple-Dillo 

$15.00 per year, 12 issues 

c/o Lenard Fein 

River City Apple Corps 

2015 Ford St. 

Austin, TX 78704 

Applegram 

$15.00 per year 

Apple's British Columbia Computer 

Society 

316-8055 Anderson Rd. 

Richmond, B.C., 

Canada V6Y 1S2 

Apple Gram 

$15.00 per year, 12 issues 
The Apple Corps of Dallas 
P.O. Box 5537 
Richardson, TX 75080 

Apple Mug Newsletter 

Apple Medical User's Group 
2914 Katella, Suite 208 
Orange, CA 92667 

The Apple Orchard 

$10.00 per year, 6 issues 
International Apple Core 
910 A George St. 
Santa Clara, CA 95050 

Apple Peel 

$20.00 per year, 12 issues 
Jerry Jenkins, Editor 
The Birmingham Apple Corps 
774 Twin Branch Drive 
Birmingham, AL 35226 

Apple /Sass 

$12.00 per year, 12 issues 

Honolulu Apple User's Society 

P.O. Box 91 

Honolulu, HI 96810 

Applesauce 

$12.00 per year, 6 issues 
Original Apple Corps 
P.O. Box 598 

Venice, CA 90291 

AppleSeed Newsletter 

$15.00 per year, 12 issues 

P.O. Box 12455 

San Antonio, TX 78212 



ByteLines 

$12.00 per year, 12 issues 
Hi Desert Apple Computer Club 
P.O. Box 2702 
Lancaster, CA 93534 



Call -A.P.P.L.E. 

$20.00 per year, 12 issues 
$25.00 application fee 
304 Main Ave. S., Suite 300 
Renton, WA 98055 

The Cider Press 

$20.00 per year, 12 issues 
San Fransisco Apple Core 
1515 Sloat Blvd., Suite 2 
San Fransisco, CA 94132 

The C.I.D.E.R. Press 

$10.00 per year 

Apple Computer Information 

and Data Exchange of Rochester 

P.O. Box 2359 

Rochester, NY 14623 



Erie Apple Crunchers Express 

$12.00 per year 
P.O. Box 1575 
Erie, PA 16507 

From The Core 

$12.00 per year, 12 issues 
Carolina Apple Core 
P.O. Box 31424 
Raleigh, NC 27622 

FWAUG Newsletter 

$15.00 per year, about 9 issues 

Lee Meador, Editor 

Fort Worth Area Apple User Group 

1401 Hillcrest Drive 

Arlington, TX 76010 

The G.R.A.P.E. Vine 

$7.50 per year, 12 issues 
Group for Religious Apple 
Programming Exchange 
c/o Stephen Lawson 
P.O. Box 283 
Port Orchard, WA 98366 

Hardcore Computing 

$20.00 per year, quarterly 
P.O. Box 44549 
Tacoma, WA 98444 

The Harvest 

$12.00 per year, 10 issues 
Northern Illinois Apple User Group 
1015 S. Ridge Rd. 
Arlington Heights, IL 60005 



L.A.U.G.H.S. 

$15.00 per year 

c/o Sam Ward 

Louisville Apple User Group 

8002 Canna Dr. 

Louisville, KY 40258 



Maple Orchard 

$25.00 (Canadian) per year, 6 issues 

Apple Users Group of Toronto 

(Apple-Can) 

P.O. Box 696 

Willowdale, Ont., 

Canada M2K 2P9 



The Michigan Apple- Gram 

$12.00 per year, 10 issues 

The Michigan Apple Computer Club 

P.O. Box 551 

Madison Heights, MI 48071 

Mini'App'Les Newsletter 

$12.00 per year 
Mini'App'Les Apple 
Computer User Group 
Box 796 
Hopkins, MN 55343 

Newsletter 

$10.00 per year 
Apple Bytes of Buffalo 
c/o Hank Kolk 
171 Tree Haven Road 
Buffalo, NY 14215 



Nibble 

$19.95 per year, 8 issues 
S.P.A.R.C. 
P.O. Box 325 
Lincoln, MA 01773 



OKC Apple Times 

$10.00 per year, 6 issues 
OKC Apple User Group 
c/o Glenn H. Rodkin 
3728 No. Frankford 
Oklahoma City, OK 73112 



Peelings II 

$21.00 per year, 9 issues 
The Peelings Co. 
P.O. Box 188 
Las Cruces, NM 88004 

Poke-Apple 

$15.00 per year 
Apple- Siders 
5707 Chesapeake Way 
Fairfield, OH 45014 

Rubber Apple Newsletter 

12.00 per year, 10 issues 
c/o Ken Gabelman 
849 Russel Ave. 
Akron, OH 44307 

The Scarlet Letter 

Big Red Apple Club 
1301 North 19th 
Norfolk, NE 68701 

The Seed 

$18.00 per year, 12 issues 
P.O. Box 17467 
Denver, CO 80217 

Softline 

Gratis, 6 issues per year 
11021 Magnolia Blvd. 
North Hollywood, CA 91601 



(Continued on page 110) 
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Name: Payroll System 

System: OS65U 
Memory: 48K 
Language: BASIC 
Hardware: OSI C-2 or C-3 

series 
Description: This integrated 
portion of EIS General Account- 
ing System prepares payroll for 
hourly and salaried employees 
while accumulating informa- 
tion for tax reporting purposes. 
It includes all tax tables and 
optional payroll check writing. 
Price: $800.00 

Includes three program disks 

and a step-by-step user's 

manual 
Available: 

Electronic Information 
Systems, Inc. 

P.O. Box 5893 

Athens, GA 30604 

(404) 353-2858 



Name: The Home 

Accountant 

System: Apple II, 1 disk 
drive (2nd 
recommended) 
Memory: 48K 
Language: Applesoft 
Hardware: Applesoft in 
ROM, printer 
(132-column 
optional but 
recommended) 
Description: Package offers a 
100-budget category, keeps 
track of up to 5 checking ac- 
counts, cash and credit cards. 
Prints checks (if desired), 
prints a personal balance sheet 
. and net worth statement. 
Allows multiple diskettes, fast 
bank reconciliation, and 
automatic transfers. Custom 
search and retrieval, and 
graphics for any category by 
bar graph, line graph and trend 
analysis. 

Price: $74.95 (Retail) 
Includes one program 
diskette, manual and binder 
Authors: Robert Schoenburg, 
Stephen Pollack, Larry Grodin 

Available: 
Continental Software 
16724 S. Hawthorne Blvd. 
Lawndale, CA 90260 
(213) 371-5612 



Name: Stock Forecasting 

System 

System: Apple II Plus or 

equivalent 
Memory: 48K 
Language: BASIC 
Hardware: One disk drive 
minimum. Can 
use 2 drives, 
printer modem 
and graphics 
tablet. 
Description: Fifteen menu- 
driven programs are used to 
determine buy and sell points 
for individual stocks. System 
provides technical analysis of 
stock prices. Complete data 
file control. Programs are 
locked, but user may make un- 
limited copies for his own use. 
Price: $175 
Includes program diskette, 
data disk, hardware lock and 
manual 
Author: C. Edward Walter 
Available: 
Urban Aggregates, Inc. 
6431 Brass Knob 
Columbia, MD 21044 



Name: Elements of Music 

System: Micro Plato/Apple 

II Plus 
Memory: 48K 
Language: Micro Tutor, 

Applesoft BASIC 
Hardware: One disk drive 
Description: This computer 
program was developed for use 
with children and non-music 
majors who wish to learn the 
elements in music at an entry 
level. Content lessons include: 
pitch names, pitches on the 
keyboard, key signatures. 
Lesson disk includes student 
records for 50 users with data 
collection for all lessons on the 
disk. 
Price: $175 Apple 

$225 Micro Plato 

Includes instructor manual, 

student instruction sheet, 

floppy disk lesson. 
Author: John M. Eddins, 

Robert L. Weiss, Ir. 
Available: 

Electronic Courseware 
Systems, Inc. 

P.O. Box 2374, Station A, 

Champaign, IL 61820 



Name: Arith-Magic 

System: PET 
Memory: 16K 
Language: BASIC 
Hardware: Diskette and Tape 
Description: These three math- 
ematics programs — Diffy, 
Tripuz and Magic Squares — 
are highly interactive and pre- 
sent motivated practice in 
whole number operations along 
with exploration of concepts. 
They are appropriate for grades 
3-8 and come with thorough 
teacher documentation. 
Price: $35.00 

Includes postage and 

handling 
Author: [oanne B. Rudnytsky 
Available: 

Quality Educational Designs 

P.O. Box 12486 

Portland, OR 97212 



Name: Russian Disk 

System: Apple 
Memory: 32K 
Hardware: Disk Drive 
Description: The Russian Disk 
package contains two sets of 
programs: the first set teaches 
the Russian (or Cyrillic) 
Alphabet by first introducing 
the letters that most resemble 
their English counterparts and 
then the more exotic ones bit 
by bit. The second set of pro- 
grams develops reading ability 
in Russian and expands the 
user's Russian vocabulary. It 
also provides a chance to prac- 
tice typing in Russian using 
the Cyrillic characters learned 
in part one. 
Price: $24.95 

Author: Constance Curtin 
Available: 

Instant Software, Inc. 

Peterborough, NH 03458 

(603) 924-9471 



Name: Waterloo 

microPascal 

Hardware: Commodore 

SuperPET, Volker- 
Craig 2900, 3900, 
4900, Northern 
Digital micro WAT 
Description: Wateiloo micro- 
Pascal is an extensive imple- 
mentation of Pascal, corres- 
ponding very closely to draft 



proposals being produced by 
the International Standards 
Organization (ISO) Pascal 
committee. The ISO draft 
language is a refinement of the 
language originally defined by 
Wirth, varying only in minor 
aspects. This implementation 
includes sophisticated features 
such as text file support, 
pointer variables, and multi- 
dimensional arrays. A signifi- 
cant feature of Waterloo 
microPascal is its powerful in- 
teractive debugging facility. 
Available: 

Waterloo Computing 
Systems Limited 

158 University Ave. W. 

Waterloo, Ontario, Canada 

N2L 3E9 



Name: Liquid and Gas 

Flow Calculation 

System: Apple II, Apple II 

Plus 
Memory: 32K 
Language: Applesoft BASIC 
Hardware: DOS 3.2 II or 

DOS 3.3 II with 
controller card 
Description: Menu-driven 
flow calculation programs, to 
find physical properties on 
flow of gases or liquid for tube 
data engineering. Two main 
programs calculate quantity, 
inlet pressure, outlet pressure, 
flow coefficient, specific gravi- 
ty, temperature, selected tub- 
ing material's outer diameter's 
allowable wall thickness. Also 
includes tube volume calcula- 
tion program. Considers the 
elevated temperature in high- 
pressure condition of un- 
known medium. Utilizes 
several sophisticated exponen- 
tial calculation routines to find 
ultimate pressure ratings of 
both tubing data (aluminum, 
copper, carbon steel and two 
kinds of stainless steel) are 
stored in data file. 
Price: $40.00 

Includes seven programs on 

diskette. 
Available: 

American Avicultural Art & 
Science Inc. 

3268 Watson Road 

St. Louis, MO 63139 

(314) 645-4431 

(Continued on next page) 
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14/tzard-SO 

INSTANT 80 COLUMN APPLE 

The miracle of the 80's . . . everything you want in an 
80-column card. 



Software Catalog (continued) 



STOP STARING AT 
40 COLUMNS 

WIZARD-80 lets you see exactly 
what you will get when typing 
80-column format. It gives you a 



Displays 7x9 matrix characters 
Provides upper/lower case 
characters with full descenders 
Fully edits. ..uses ESCape key 
for cursor movement 



full 80-column by 24-line display . Scrolling stop/start uses 



with all these features. 

■ Fully compatible with Apple IP 
and Apple II Plus' 5 '* 

■ Fully compatible with mostword 
processors, micro-modems 
and prom programmers, plus 
all current Apple II expansion 
boards 

■ Lists BASIC programs, integer 
and Applesoft 

■ Fully compatible with Pascal 

■ Uses software to switch 
between 40 and 80 column 
formats 



standard Control-S entry 
Retains text on screen while it 
is being printed 
Contains crystal clock for 
flicker-free character display 
Has low power consumption 
for cool reliable operation 
Leads soldered directly to board 
for maximum reliability 

i 2Kon-boardRAM f 50orB0Hz 
operation 

i Inverse video selection 
standard 

Available at all fine 
Computer Stores $295.00 



H0>lUESPER n|iCRU 
Systems 

SUBSIDIARY OF WESPERCORP 




Name: 



System: 

Memory: 

Language: 



Escape From 
Arcturus 

Apple II 

48K 

Applesoft/ 

Machine Code 
Hardware: DOS 3.3 
Description: This machine- 
language program has colorful 
high-resolution animation 
along with sound efects. The 
two-part player action begins 
with commanding the Space 
Fortress. Surrounded by at- 
tacking Griplems, you fend off 
photon torpedoes, fighters, 
cruisers, and deal with their 
force fields — all at the same 
time. Moving to the escape 
pilot mode, you repel a variety 
of landing craft while saving 
the population of Arcturon. 
Requires an Apple II with Ap- 
plesoft firmware, 48K, DOS 
3.3 system with paddles, and 
quick reflexes. 
Price: $35 
Available: 
Synergistic Software 
5221 120th Ave. S.E. 
Bellevue, WA 98006 



Name: Job Control 

System™ 

System: Apple III 
Memory: 64K 
Language: Pascal 
Hardware: Apple II with 

Pascal language 
and a 132-column 
printer 
Description: High Technology 
Software Products, Inc. 
brought computer-assisted job 
control to the small-to- 
medium-size companies in 
manufacturing, construction, 
and service industries by in- 
troducing the fob Control 
System™ for the Apple II early 
in 1981. JCS is now available 
for the Apple III. JCS provides 
management with reliable 
measures of productivity by 
furnishing up-to-the-minute 
job status data for determining 
the real cost of producing a 
product or providing a service. 
Price: $750.00 

Includes program diskette, 

3-ring binder with complete 

documentation 
Author: Mark Nettlingham 
Available: 

High Technology Software 
Products, Inc. 

P.O. Box 14665 

2201 N.E. 63rd St. 

Oklahoma City, OK 73113 

and other computer retailers 

worldwide 



Name: Absolute Security 

System: Apple II and Apple 

II Plus, DOS 3.3 
Memory: 48K Bytes 
Language: Applesoft BASIC, 
Machine Code 
(6502) 
Hardware: Small audio 

amplifier (any 
cassette recorder], 
Micromodem II 
Description: Absolute Security 
protects confidential modem 
communications by encoding 
uppercase ASCII text files with 
an unbreakable code. The 
security of the system relies on 
user-generated keys. It is, 
therefore, possible for every 
Apple user to own and use Ab- 
solute Security with equal 
total privacy and protection. 
Based on the "One-Time Pad" 
concept, Absolute Security is 
invulnerable to decoding by 
even Government superpowers. 
Price: $79.95 ppd. in the USA 
Includes operation/ config- 
uration manual, 3.3 disk- 
ette, 2-system license 
Author: Dann McCreary 
Available: 
Dann McCreary Software 
Box 16435-MI 
San Diego CA 92116 
Note: Absolute Security is 
currently available only for 
shipment within the U.S., 
per U.S. State Department 
directive. Foreign inquiries 
only accepted. 

Name: Vigil 

System: VIC-20 
Memory: 4K 
Language: Assembler 
Hardware: VIC with 3K 

memory expander 
Description: A powerful new 
language for programming in- 
teractive games. Allows use of 
all features available on VIC 
(color, sound, light pen, game 
paddles and joysticks). With 
Vigil you can create action- 
packed games that rival 
machine-language coded 
games in speed, but in a frac- 
tion of the development time. 
Comes with nine preprogram- 
med games to get you started 
immediately. 
Price: $35.00 

Includes 80-plus-page 

manual and nine full length 

sample games 
Author: Roy Wainwright 
Available: 

Abacus Software 

P.O. Box 7211 

Grand Rapids, MI 49510 

(616) 241-5510 
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Name: Waterloo 

microSUPER- 
VISOR 

Hardware: Commodore 

SuperPET, Volker- 
Craig 2900, 3900 ; 
4900, Northern 
Digital micro WAT 
Description: The Waterloo 
micwSUPERVISOR is an oper- 
ating system designed for 
single-user microcomputer en- 
vironments. It includes moni- 
tor, library and serial line com- 
munications support. The 
monitor program supports 
loading of linker-produced pro- 
gram files into bank-switched 
RAM memory or normal RAM 
memory. The monitor also 
provides facilities which are 
useful for debugging machine- 
language programs. A library of 
functions and procedures is in- 
cluded for general use by other 
programs included in the 
package. The library includes 
support functions for input/ 
output operations to the key- 
board, screen and peripheral 
devices. A serial line setup pro- 
gram is included which per- 
mits the selection of program- 
mable characteristics, such as 
baud rate, of RS-232 serial 
lines. In addition, this program 
includes support for establish- 
ing communication with a 
host computer, through a 
serial line, for the purpose of 
accessing its files and 
peripheral devices. 
Available: 
Waterloo Computing 

Systems Limited 
158 University Ave. West 
Waterloo, Ontario 
Canada N2L 3E9 



Name: 



System: 



Memory: 

Language: 
Hardware: 






Math Drill 
Gamepac 

OSI C1P, 

Superboard; 

TRS-80 Model I, 

III 

OSI - 8K 

TRS-80 - 16K 

BASIC 

Cassette 
Description: Math Drill 
Gamepac consists of three sep- 
arate games for making math 
drills fun. Math Wars provides 
random drill problems in 
BASIC addition, subtraction, 
multiplication, and division 
with a choice of difficulty from 
one- to three-digit numbers. 
Fraction-Action follows the ' 
dreaded Gator-Hator at feeding 
time while drilling at all 
aspects of fractions. Decimal 



Tic-Tac-Toe requires correct 
answers to decimal problems 
in order to play the popular 
game. Excellent for grades K 
through 6. 
Price: $11.95 per game 

$29.95 for complete 

Gamepac 

Add $2.00 for shipping 

Includes separate tape for 

each game, instructions 
Author: Doug Jenkins and 

Garry Taylor 
Available: 

Tripod Productions 

Box 71, Route 11 

Bowling Green, KY 42101 

Name: BASXR 

System: 0S65U 
Memory: 48K 
Language: BASIC 
Hardware: Ohio Scientific 

C-2 or C-3 series 
Description: Helps with de- 
bugging and modification. 
Lists all variables and/or com- 
mands and their line number 
locations. Locates specific 
lines on entry of decimal value 
of BASIC commands. 
Price: $45 - program 

$50 put on your OS65U disk 

Includes program listing and 

documentation manual. 
Available: 

Electronic Information 
Systems, Inc. 

P.O. Box 5893 

Athens, GA 30604 

(404) 353-2858 

Name: Electronics III 

#26014 

System: Apple II or Apple 

II Plus 
Memory: 32K RAM 
Language: Applesoft 
Description: The programs in 
this package are used to 
analyze both periodic and 
aperiodic waveforms along 
with various circuits: average 
and RMS values of a periodic 
function, fourier series expan- 
sion of a periodic function; 
fourier transform and spec- 
trum plot, analysis of damped 
excillations, impedance match- 
ing pads, and PI-TEE (delta- 
wye) transforms. 
Price: $39.95 

Includes documentation. 
Available: 

Advanced Operating Systems 

450 St. John Rd. 

Suite 792 

Michigan City, IN 46360 

(219) 879-4693 
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1\/izard-37>0 

BUFFERED PRINTER OUTPUT 

Allows new-task input while old-task prints out. 



STOP WAITING FOR SLOW 
PRINTER OPERATION 

WIZARD-BPO is a parallel 
printer interface that lets you 
use your Apple while data 
from a previous operation 
is being printed. No more 
wasting of your precious 
time while your printer prints. 
The WIZARD-BPO contains a 
16K byte "character buffer" 
that may be expanded to 32K 
bytes of character buffering. 
It accepts data at the Apple's 
rapid transfer rate, stores 
the data and feeds it to your 
printer at the rate the printer 
can accept it. 
■ Fully compatible with all 
Apple II and Apple II Plus* 
computers ^-%v 



■ Fully compatible with most 
Apple II expansion boards 

■ Fully compatible with most 
Apple software including 
Applesoft BASIC* Integer 
BASIC*, CP/M, Pascal, etc 

■ Low power consumption 
for cool reliable operation 

■ Leads soldered directly 
into board for reliable 
operation 

■ Many formatting features 

■ Two-year factory 
replacement Warranty 

Backed by the world's #1 
independent manufacturer of 
peripheral controllers 

Available at all fine 
Computer Stores $179.00 
Telephone (800) 854-8737 



"O^ESPEH niiGRD 
Si|sti:ms 

SUBSIDIARY OF WESPERCORP 






NEXT TASK.,. 
WESPERMICRO 
SYSTEMS TIME- 
SAVING MICRO- 
PERIPHERALS ADD 
VALUE TO YOUR 
APPLE. 



NEW B809 SYSTEM! 



Now, for about the same price as you would expect to pay for the 
memory capacity alone, you can have a complete single board 
computer with these features: 

-"-6809 CPU, 1 MHz clock 

-IM 92KB RAM included, sockets for 64KB more 

-:i-84X24 display of a 7X12 character font 

-A-Keyboard interface for an un-encoded switch matrix 

-"-Floppy controller for two 5" drives, single or double sided, up to 

80 tracks 
-"-Parallel printer port 
-"-Serial I/O port 

-;(-General purpose 8-bit parallel I/O port 
^-Parallel expansion port 
-"-Dimensions: 8.6 by 10.3 inches 

The FLEX operating system is supported by our device drivers. 
BASIC, PASCAL, and C are available for FLEX. The device drivers (in 
EPROM) include advanced features like auto-repeat for the 
keyboard, and track buffering for the disks. Commented source code 
of all EPROM contents is supplied. 

For more information, send a stamped self -addressed envelope and 
we will send you a configuration guide that explains how to set-up a 
system. An assembled board is purchased by sending check or 
money order for $735 per board. [California add 6% sales tax). 

Chandler Microsystems 

22051 COSALA 

MISSION VIEJO, CA 92691 

FLEX, trademark Technical Systems Consultants, Inc. 



COMING SOON... 

The fastest, most comprehensive, most responsive 
software ever written for microcomputers... 

FEDDER SOFTWARE by Interactive Computer 
Systems, for CP/M multi-user hard disk environment... 

ACU-LEDGER by National Software, for the Apple II 
without CP/M... 

Both of these flexible, high-speed file access systems 
will outperform their competition in respective 
categories... 

Both will be distributed by 



*E 



YEPJV 



1 7 COMMERCE ST. BALTIMORE, MD 21 202 



Write to Eastern for details and the name of the 
Eastern dealer nearest you. 
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PRIME 

FACTOR, inc 




PRIME FACTOR BASIC 2.2 

th e PR I ME FACTO R , I n c .. p resents PR I ME FACTO R 
BASIC, a fast and powerful Applesoft™ compatible, 500 
digit machine language math system 
PRIME FACTOR BASIC provides the tools to play the 3000 

■year old adventure game of large numbers. With the added 
commands you may explore for large mersenne primes', 

, compute the natural logarithm e to 500 places, factor large 
numbers, experiment with a 1 29 digit public key trap door 
function and much more. 
PRIME FACTOR BASIC is delivered on an Apple II DOS 

1 :3J3;diskette with numerous demonstration programs. The 
user manual takes you step by step through the easy com- 
mands which form a natural extension to Applesoft. Simple 
and array variables are supported. The f unctions: + , ; - ; x 5 4 
A . ABS(X), SGN(X), MOD(X/Y), MOD(X A Y/Z), 
GCD<X,Y). SGR(X), SQREM(X), LEN(X) and IF . . .THEN 
testing are some of the tools available in this mathematics 
advenu i | age. 
PRIME FACTOR BASIC $79.95 

■ ■ :■ _ 
:,.App|e ; l.h; : Applesoft and DQS 3.3 aretradernarksof Apple Computer Inc. 
PRlfdE FACTOR BASIC and PRIME FACTOR LOO i - FOR Inc 

14713 OXNARD STREET- VAN NUYS, CA 91411 • (213) 908-1838 
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Name: Videotrek 
System: OSI Cassette 
Systems 

Memory: 8K 
Language: BASIC 
Description: Command the 
Starship "Challenger" on a 
high-speed chase through the 
galaxy as you try to destroy the 
Klingon invasion fleet. You 
must navigate through stars, 
black holes and planets, and 
watch out for the doomsday 
machine! From the author of 
Time Trek, this is an action 
graphics arcade version of Star 
Tiek, with several levels of 
difficulty. Uses machine code 
and has sound for all CIPs and 
color and sound for C4Ps. 
Cassette only. Specify your 
system! 
Price: $9.95 
Author: Bob Retelle 
Available: 

Pretzelland Software 

2005 Whittaker Rd. 

Ypsilanti, MI 48197 

(313) 483-7358 



Name: Time Dungeon 

-World #26052 

System: Apple II or Apple 

II Plus 
Memory: 32K RAM 
Language: Applesoft 
Description: This game pack- 
age offers the user three dif- 
ferent games, each focusing on 
a different time period. The 
operator must answer ques- 
tions correctly in order to map 
his way out of a dungeon with 
as many pieces of gold as possi- 
ble. The time period focused 
upon depends upon the game 
chosen. The three programs 
are: Ancient History 4,000 BC- 
6BC; World History WW I 
1894-1919; World History WW 
II 1933-1945. 
Price: $29.95 

Includes documentation 
Available: 

Advanced Operating Systems 

450 St. John Road 

Suite 792 

Michigan City, IN 46360 



" 



Name: 


Color Pac Attack 


System: 


Radio Shack Color 




Computer, TRS- 
80C 


Memory: 

Language: 

Hardware: 


16K 

Assembly 

TRS-80C, 


joysticks 
Description: Pac Attack brings 
the fun of the arcades to the 



Color Computer. Three little 
muggers chase your man re- 
lentlessly around a maddening 
maze as you furiously try to 
build up points. This game's 
great graphics and sound ef- 
fects offer continuous action at 
three levels of difficulty for 
computer buffs of all ages. 
Price: $24.95 

Includes cassette and 

instructions 
Author: Computerware 
Available: 

Computerware 

P.O. Box 668 

Encinitas, CA 92024 



Name: Tax-Manager 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Applesoft in ROM 
Hardware: Disk II 
Description: Get help prepar- 
ing your federal income taxes 
and printing the schedules. 
This easy-to-use program in- 
cludes the latest tax laws and 
will remain current with our 
Extended Warranty option. 
Price: $150.00 
Author: Taso 
Available: 

Micro Lab 

2310 Skokie Valley Rd. 

Highland Park, IL 60035 



Name: TWERPS 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Assembly 
Hardware: Disk II 
Description: Now, from the 
company that brought you 
Sneakers, Beer-Run and a host 
of other blockbusters, comes 
TWERPS — another whimsical 
game of skill with eight levels 
of play and a cast of top- 
starring characters. Meet Cap- 
tain Twerp! Thrill at the 
shooting Oribters! Be amazed 
by the swooping Glingas! Gasp 
in terror at the drooling Gleep- 
noks! Sit on the edge of your 
seat as you try to get back to 
the mother ship before your 
fuel runs out! Now at your 
neighborhood stores. 
Price: $29.95 

Includes diskette and 

instruction booklet 
Author: Dan Thomson 
Available: 

Your local computer store 



Name: Spelltest 

System: Any 6809 system 
running FLEX or 
OS-9 operating 

system 
Memory: 32K to 56K total 
RAM (including 
the 8K used by 
operating system) 
Language: 6809 machine 

code 
Hardware: SWTPC, GIMIX, 
or any other 6809 
system. Two disk 
drives 

recommended 
Description: Menu driven 
spelling checker. User friendly, 
designed to be used by a 
secretary. Spelltest is interac- 
tive, letting you check each 
word in context. It writes a 
corrected file for you after 
checking. Also allows you to 
build an additional dictionary 
of new words. You may accept, 
accept and save, or replace 
each suspect word. Suspected 
misspelled words may be listed 
on terminal or printer, checked 
individually or checked in con- 
text. Also will print list of 
valid words. Fast operation. 
22,000+ dictionary. 
Price: $199.95 
Includes 22,000 word 
dictionary and binary code 
and instructions. Source 
$100 additional. 
Author: Dale L. Puckett 
Available: 
Frank Hogg Laboratory 
130 East Water 
Syracuse, NY 13210 
(315) 474-7856 
Master Card and VISA 
accepted 



Name: W7AAY RAE to 

BASIC File 
Transfer Program 

System: Synertek SYM-1 
Memory: 8K minimum 
Language : B AS- 1 and RAE- 1 
Description: This 512-byte 
ROMable program allows RAE 
text files to be transferred to 
BASIC and for BASIC programs 
to be transferred to RAE. Now 
you can use the powerful RAE 
editor to create and modify 
BASIC programs. Fully docu- 
mented source code in RAE 
format supplied on cassette 
tape with instructions. 
Price: $15.00 ppd. in USA 

$17.00 foreign 
Author: John M. Blalock 
Available: 

Blalock and Associates 

P.O. Box 39356 

Phoenix, AZ 85069 
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Name: Entertainment 

Software for Ohio 
Scientific 

System: OSI C2-4P or C4P 

micros 
Memory; 8K 
Language: BASIC 
Hardware: Cassette, 5 l A" 

disk, or 8" disk 
Description: Micronics Com- 
puterware is introducing a line 
of software beginning with the 
following full feature games: 
Breakout, Box-In Hangman, 
Crossball, and Battleship. All 
the games take full advantage 
of OSI's sound, color and 
graphics features. Interested 
parties should write or phone 
for complete information. 
Price: $6.95 [cassette] 

$9.95 (disk) - write for more 

information on disks. 

Includes cassette or disk, 

full documentation 
Available: 

Micronics Computerware 

750 Auburn Avenue 

Buffalo, NY 14222 



Name: DOW2000 & 

Option43 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: Disk 3.3/3.2 and 

printer option 
Description: Stock Market 
Analysis will determine price 
projections based on a stock's 
BETA coefficient or Relative 
Strength # and the Dow Jones 
Average. Projections are made 
as you vary the DOW (What 
if...); on one stock or entire 
portfolio with single scan, 
quick scan, or variable scan of 
values. The option program 
will give you the percent of in- 
crease of the option months to 
determine which month and 
strike price option to buy for a 
given stock. Included is the 
booklet "The Art of Timing 
Your Stock's Next Move." 
Author in market 1 7 years and 
former Registered Investment 
Advisor with S.E.C. 
Price: $29.95 

Includes booklet (booklet 

alone $5.95) 
Author: CIAC: Patrick and 

David Calabrese 
Available: 

Bit 'n Pieces Series 

P.O. Box 7035 

Erie, PA 16510 



(Continued on next page) 

105 



Software Catalog (continued) 



Name: FORTH 

Programming Aids 

System: fig-FORTH model 
(FORTH-79 in 
preparation) 
Memory: free dictionary 
space: 3K 
minimum, 13K 
recommended 
Language: High level FORTH 
Hardware: Any with the 
above FORTH 
systems 
Description: These routines 
aid in development and debug- 
ging and complement cross/ 
meta compilers with com- 
mands to perform the follow- 
ing: (1) decompile words into 
structured FORTH code (it 
generates IF, ELSE, etc.), op- 
tionally to disk; (2) find (and 
decompile) all words called by 
a specified word; (3) find all 
calls to a specified word; (4) 
create a one-to-one translation 
of FORTH run-time code. 
Price: $150.00 (California 

residents add 6.6%. Foreign 

air add $15.) 

Includes 40-page manual and 

all source code 
Author: T.E. Wempe, 

R.E. Curry 
Available: 

Curry Associates 

P.O. Box 11324 

Palo Alto, CA 94306 



Name: Small-C for 6809 

System: 6809 with FLEX9 
or DOS 69D 
(OS-9-planned) 
Memory: 48K recommended 
Language: C 

Hardware: Any which will 
run above 
operating systems 
Description: Proper subset of 
C except for #ASM extension. 
Based originally on Small-C by 
Ron Cain, with a few exten- 
sions. Generates relocatable 
code, special loader supplied 
for TSC's absolute assembler. 
SSB users should furnish 
description of hardware and 
OS revision level. Version 1.0 
now, 2.0 July. 
Price: $52.50 (5") version 1.0 

Includes source for run-time 

library, compiler-tester, and 

FLEX loader. 
Author: Allan Batteiger, 

Bill Knight, 

Howard Harkness 
Available: 

Word's Worth 

P.O. Box 28954 

Dallas, TX 75228 



Name: Fun With Math 

Vol. 1 

System: Apple II, Apple II 

Plus 
Memory: 48K with DOS 3.3 

and FP in ROM 
Language: Applesoft and 
Integer (RAM 
Integer on disk) 
Hardware: Apple II or Apple 
II Plus computer, 
DOS 3.3, game 
controllers not 
required. 
Description: Educational pro- 
grams present drill in the four 
basic operations in a highly 
motivational game format 
using the Apple' s graphics and 
sound capabilities. All pro- 
grams offer immediate rein- 
forcement and have two levels 
of difficulty, which is under 
teacher control. These pro- 
grams are designed to be 
"childproof" and are almost 
impossible to "crash." The 
programs were written by a 
teacher who has had 17 years 
classroom experience. Three 
games (Bomber, Saucer Math 
and Lone Ranger Fast Draw) 
furnish drill in the four basic 
operations. The other pro- 
grams (Anti-Aircraft, Sub 
Commander, Fraction Gun- 
fight, Place Value Tank, and 
Talking Subtraction) provide 
drill in place value, 
equivalents in measurement, 
fraction identification, and 
subtraction with regrouping. 
Price: $44.95 
Additional copies $15.00 ea. 
$19.95 for Bomber, Saucer 
Math and Lone Ranger Fast 
Draw only 
Author: M.C. Henderson III 
Available: 
Learn-A-Lot Software 
711 Ahrens 
Houston, TX 77017 
(713) 643-2064 



Name: Library On-Line 

Circulation 
System 

System: Apple II Plus 
Memory: 48K 
Language: Applesoft and 

Machine 
Hardware: One or two disk 

drives; "Paper 

Tiger" printer 

(optional) 
Description: Uses A.B.T. bar- 
wand™ and barcoded labels to 
circulate up to 40,000 titles for 
2,000+ borrowers in schools 
and small libraries. Produces 
overdue notices; handles un- 
limited "holds" and "re- 
serves." Programmed by a 



librarian/programmer and 
tested in several library en- 
vironments. Other library soft- 
ware available. 
Price: $250.00 in U.S. 

Includes manual 
Author: Bob Stevens 
Available: 

Richmond Micro Software 

Box 94088 

Richmond, B.C. 

Canada V6Y 2A2 



Name: Dental Insurance 

Form Writer 

System: Apple II 
Memory: 48K RAM 
Language: Applesoft, DOS 

3.3 
Hardware: Firmware Card, 

disk drive, printer 
Description: Dentists can now 
prepare universal ADA in- 
surance claim forms on a com- 
puter. Each form can be 
prepared (preauthorization), 
saved to disk, reloaded, edited 
and then printed (billing) as 
many times as you desire. 
Dental Insurance Form Writer 
allows rapid billing and claims 
submittal with a minimum of 
effort. User-definable, up to 10 
practitioners. Many more 
features. Can be copied and is 
user-modifiable. 
Price: $100.00 

Includes disk, manual, forms 
Author: J. McFarland 
Available: 

Andent, Inc. 

1000 North Ave. 

Waukegan, IL 60085 



Name: Transfer III 

System: Apple III 
Memory: Standard 
Language: Applesoft 
Hardware: Built-in disk drive 
Description: Transfer 'III is a 
new and valuable utility for 
the Apple III computer. It 
moves sequential text files 
either way between an Apple II 
disk (DOS 3.3) and an Apple 
III. It can be used, for example, 
to transfer VisiCalc data files, 
word-processor text files, 
BASIC programs converted to 
text files, and laboratory-data 
files. All actions required are 
performed easily and auto- 
matically after you select op- 
tions from menus. 
Price: $60 

Includes diskette and 

manual. 
Available: 

Mind Systems Corporation 

P.O. Box 506 

Northampton, MA 01061 

(413) 586-6463 



Name: Spooler 

System: Apple II 
Language: Pascal 
Hardware: Printer, Pascal 

Speedup Kit 
Description: For use with the 
Pascal Speedup Kit, Spooler 
allows the user to continue 
using the entire Pascal system 
while producing printed 
reports. Key features: works in 
any slot with any printer and 
virtually any printer interface 
card; automatically picks up 
user's workfile. 
Price: $45.00 
Available: 

Stellation Two 
P.O. Box 2342 

Santa Barbara, CA 93120 

(805) 966-1140 



Name: poly FORTH 

System: Motorola EXORset 
30, EXORcisor I & 
II, Omni-Byte 
68000, Intel 8080, 
8085, 8086, RCA 
1802, LSI-11/02, 
23, PDP 11/20- 
11/70, IBM Series 
1, Z-80 
Memory: 8K Bytes 
Language: FORTH 
Hardware: Many disk 
subsystems, 
printers, 

specialized control 
hardware, etc. 
Description: polyFORTH from 
FORTH, Inc. is a multi- 
tasking, multi-programming 
environment which includes 
editor, file handling, virtual 
memory, language and utili- 
ties. It is widely used as a total 
approach to professional sys- 
tems development by software 
and hardware engineers ; prod- 
uct designers, educators and 
scientists. Users of this 
uniquely powerful technology 
achieve greatly reduced devel- 
opment time and memory size 
without sacrificing processor 
speed or flexibility. poly- 
FORTH is the latest and most 
advanced implementation of 
the extensible FORTH lan- 
guage developed by Charles H. 
Moore of FORTH, Inc. in 1972. 
Price: $5100-$8200 depending 
upon configuration 
Includes all features, full 
source and documentation. 
Options include: graphics, 
file system, educational 
courses, consulting. 
Available: 
FORTH, Inc. 

2309 Pacific Coast Highway 
Hermosa Beach, CA 90254 
(213) 372-8493 
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Name: Pegasus 

System: Apple II Plus (at 
present — CP/M, 
Apple III and IBM 
PC in future) 
Memory: 64K 
Language: Apple Pascal 
Hardware: Two disk drives 
(one for program 
must be 5",' other 
can be 5", 8" or a 
hard disk) 
Description: Pegasus was 
designed to be easy to learn 
and use by the novice com- 
puter user, and also allow the 
experienced programmer to 
write applications programs. 
Pegasus is a general data base 
management program. Input of 
data can be from the keyboard 
or from disk files. Output from 
the system may be to the 
screen, printer or to disk files. 
Price: $199.95 

Includes disk (5W format 

at present), manual and 

update service 
Author: Sunil Subbakrishna 

and J. David Lehman of 

Shakti Systems, Inc. 
Available: 

Powersoft, Inc. 

P.O. Box 157 

Pitman, NJ 08071 

(609) 589-5500 



Name: PTERM-103 

PTERM-232 
PTERM-8010 
XPTERM-103 
XPTERM-232 
XPTERM-8010 
System: Commodore PET 

and CBM 
Memory: 8K for PTERM; 

32K for XPTERM 
Language: Commodore 

BASIC and 6502 
assembly language 
Hardware: CBM disk for 

XPTERM. Serial 
interface on 
telephone 
modems. 
Description: PTERM-103 pro- 
vides auto-dial, auto-answer 
capabilities. Phone numbers 
are stored and dialed by 
mnemonic. The baud rate is 
software selectable (110, 150 
or 300 bits per second). 
XPTERM-103 allows the 
system to automatically 
answer calls from other 
XPTERM users (103, 232 or 
8010 versions). After the 
remote user provides a 
password, CBM disk files can 
be transferred in either direc- 
tion. PTERM 232 and 



XPTERM 232 work with either 
the TNW 232D or the 
TNW-2000, connected directly 
to the host computer or via an 
accoustical coupler. With the 
TNW 232D, BREAK can be 
sent from the keyboard, while 
the TNW-2000 requires a 
separate switch modification 
for BREAK. PTERM 232 will 
not support 1200 bits per sec- 
ond operation due to the PET 
scroll delay. 
Price: $19 PTERM-103 

$49 XPTERM-103 

$19 PTERM-232 

$49 XPTERM-232 

$29 PTERM-8010 

$59 XPTERM-8010 

$5 extra for program on 2040 

or 8050 disk instead of tape. 

PTERM-103 free with TNW 

103 modem. 

Includes documentation. 

Updating provided free of 

charge for one year. 
Available: 

TNW Corporation 

Dept. MJ 

3444 Hancock Street 

San Diego, CA 92110 

(714) 296-2115 

TWX 910-335-1194 



Name: SofTeach for 

UCSD PascaFM 

System: The UCSD 
p-System™ 
Memory: 48K runtime 
environment; 
64K development 
environment 
Language: UCSD Pascal 
Hardware: 8086, Z-80, 8080, 
8085, 6502, 9900, 
6809, 68000, and 
LSI- 11 /PDP-11 
Description: SofTeach is a 
computer-aided instruction 
package that helps the novice 
learn to use and understand 
UCSD Pascal. SofTeach is ac- 
companied by The UCSD 
Pascal Handbook which pro- 
vides a complete description of 
the concepts of structured pro- 
gramming embodied in the 
UCSD Pascal. 
Price: $125.00 
(Prices subject to change) 
Includes object code, 
SofTeach User Manual, and 
the UCSD Pascal Handbook 
Available: 
SofTech Microsystems, Inc. 
9494 Black Mountain Rd. 
San Diego, CA 92126 
(714) 578-6105 

(Continued on next page) 



AIM 6809??? 

UpqRAdE Your AIM 65* 

to 6809 CPU Power witIi "MACH-9"! 

STANdARd: *6809 CPU & Plug-in Assembly 
*Super-set of AIM Monitor 
*Two-Pass Symbolic Assembler 
'Complete Monitor Documentation & Source 

HOBBYIST an<J INDUSTRIAL Versions 
AvAiUbU Now: 

HOBBYIST includes hardware as a kit using AIM ROM 
sockets $199.00 (add $2 for shipping and handling). 

INDUSTRIAL is preassembled and pretested with local 
BUS, 5 locking low force ROM sockets and 2K Static RAM 
$279.00 (add $2 for shipping and handling). 

iMMEdiATE Future: 

*STC FORTH System with Virtual Disk 
*A Fantastic Pascal System 

M.M.S. Inc. 

1110 E. PENNSylvANJA St. 

Tucson, AZ 89714 
(602) 746-0418 



AZ residents include 4% sales tax 



M trademark of Rockwell Inc. 



POWER TO YOUR AIM 

Treat your AIM to a quality power supply: 

1. Designed to Rockwell's specifications for the 
AIM-65 (5 volts at 2 amps, regulated; 24 volts, .5 
amps avg., 2.5 amps peak, unregulated). 

2. Overvoltage protection to protect the expen- 
sive circuits in your AIM (5 volt output). 

3. Handsome all metal case (two tone blue). 

4. Fuse (externally accessible), switch, pilot 
light, line cord, cable from power supply to AIM — 
all included. 

5. Conservative thermal design for long life. 

$64.95 ppd. (continental U.S.) 

CA residents add 6 % sates tax. 
VISA/MC, cashier's or registered check. 
Personal check (allow 2 weeks to clear). 

CompuTech 

Box 20054 
Riverside, CA 92516 
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The gnosis version of P-LISP 
has been acknowledged- as 
the finest and most complete 
available tor Apple micro- 
computers, and, with the addi- 
tion of floating point math and 
HI-RES graphics, it becomes an 
indispensable tool for edu- 
cators; scientists, business ex- 
ecutives, mathematicians, or 
applications requiring artificial 
intelligence. This excellent pro- 
gram is now available for only 
S199.95 (DOS. 3.3 only). 

Included in an attractive 
binder is a ninety page user's 
manual which will aid you in 
creating your P-LISP programs 
This manual is also available 
separately for S20.00, which is 
fully refundable on purchase of 
the program. 

P-LISP will run on a 48K or 
larger APPLE II/II + , and will 
take advantage ol ALL avail- 



for the Apple II 

able memory Supplied with the 
interpreter are several sample 
programs including a complete 
ELIZA. 

For those of you who do not 
fully understand P-LISP, we have 
available the P-LISP Tutorial for 
$25.00 This expertly written text 
is bound in a handsome binder 
and is packaged to include a 
disk containing all the sample 
programs referenced in the text 
at no extra charge. 



Applesod in BOM o 




formerly Pegasys Systems, Inc. 

4005 Chestnut Street— Philadelphia, PA 19104 
Orders Only: 800-523-0725— Penna. Residents: 215-387-1500 



ark ol Apple Co 



For FLEX9 (with loader) 
(If you already have RL0AD) 
RL0AD 3.0 separately 

For D0S69D 

(specify assembler and CPU) 



$52.50 
$47.50 
$17.50 
$47.50 



Software Catalog (continued) 



6809 Small -C 

More bang, less buck! WW Small-C 1.0, 
with separate optimizer. Has all C control 
structures, including do/while, for, and 
switch/case. Generates relocatable modules 
for either TSC absolute assembler or SSB 
MACRO. (Version 2.0 is also planned for 
OS-9.) FLEX9 version includes RLOAD 3.0 on 
separate disk. Run-time library source 
included. 48K recommended. 



Shipping included. Prices good until 
version 2.0 release (about July). Liberal 
upgrade policy. Add $2/disk for 8". Add $2 
handling for Visa/MC. Allow 4 weeks for 
non-certified check. Please don't mail 
cash. Payment must accompany P0. Texas 
residents: add $0.25 sales tax each 5" disk, 
$0.35 each 8" disk. 

DOS69D is a trademark of SSB. FLEX is a trademark 
of TSC. OS-9 is a trademark of Microware. 

word's worth 

P.O. Box 28954 
Dallas, Texas 75228 
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Name: Piper 

System: VIC-20 and 
PET/CBM 
Memory: 2K 
Language: Assembly 
Hardware: Standard VIC or 
PET/CBM with 
CB2 speaker 
Description: This unique pro- 
gram allows you to compose, 
save, recall and play back 
music using a standard VIC or 
a PET with a CB2 speaker. You 
enter music using alpha nota- 
tion: AFICD. Rests and note 
duration are just as easy. You 
may vary volume, tempo, 
print pictures or text and 
automatically load and play 
additional compositions from 
cassette or diskette. 
Price: $25 

Author: Roy Wainwright 
Available: 

Abacus Software 

P.O. Box 7211 

Grand Rapids, MI 49510 

(616) 241-5510 



Name: Memory II 

System: C4P and C8P 
Memory: 8K 
Language: BASIC 
Hardware: Amplifier 
Description: This is just like 
the game of Simon Says with 
four color blocks on the screen 
that the computer will turn on 
randomly. The computer will 
start off by lighting one color, 
then two, three, etc. You will 
have to copy what the com- 
puter plays. The longer the se- 
quence the faster it plays. 
There are three options: color 
and sound, color only, and 
sound only. There are four 
levels of play — the higher the 
level the longer the sequence! 
Price: $7.95 

Includes instructions. 
Author: Mark A. Dickenson 
Available: 

Compu-U-Gamer Software 

P.O. Box 802 

Nevada, MO 64772 



Name: The Planetary 

Guide 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: DOS 3.3 
Description: The Planetary 
Guide, which runs on the Ap- 
ple II computer, puts the solar 
system at your finger tips. 
Graphic displays, along with 
text data and detailed tables, 
provide an enjoyable education 



for all ages. All, major solar 
system members are displayed 
in detail on hi-res color 
screens. Moon phases and 
planetary movement are also 
animated on hi-res screens. 
Planet satellites as well as 
comets and asteroids are also 
covered. The Planetary Guide 
is menu driven, and single key- 
stroke commands allow rapid 
access to the many general 
purpose or detailed programs. 
Price: $30.00 
Available: 

Synergistic Software 

5221 120th Ave. S.E. 

Bellevue, WA 98006 

(206) 226-3216 



Name: LexiCom 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Applesoft 
Description: A word process- 
ing utility that allows nearly 
universal transfer of word pro- 
cessing files. Converts Apple- 
writer to Supertext, Supertext 
to Applewriter, and either of 
these may be converted to or 
created from sequential text 
files. Allows modem transfer 
of word processing files, 
editing of BASIC programs. 
Price: $49.95 

Includes documentation 
Author: David Szetela 
Available: 

Micro-SPARC Systems Div. 

Dept. P 

P.O. Box 325 

Lincoln, MA 01773 



Name: Doctor's Office 

Companion™ 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Description: Doctor's Office 
Companion provides office ef- 
ficiency through automation 
of patient billing, completion 
of insurance forms, accounts 
receivable ageing, and account 
history tracking, freeing the 
doctor's office from billing 
drudgery and expense. 
Price: $995.00 special 

introductory price 

Includes program and 

complete documentation 
Available: 

High Technology Software 
Products, Inc. 

P.O. Box 14665 

2201 N.E. 63rd St. 

Oklahoma City, OK 73113 
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Software Catalog 



(continued) 



Name: The Triangulatoi 

System: Apple II Plus 
Memory: 48K 
Language: Assembly 
Hardware: Disk and Printer 
Description: Solves oblique 
and right triangles and saves 
results for use in calculation of 
next triangle. Up to nine 
results can be saved and used 
to solve another triangle, or 
printed in tabular form. 
Price: $39.95 
Author: David P. Talich 
Available: 

Arrow Data Systems 

1224 E.Harmont 

Phoenix, AZ 85020 



Name: Property 

Management 
System (PMS) 

Memory: 48K 
Language: CBASIC 
Hardware: Dual diskette 
drives (220K 
each), 80x24 
screen, 80-column 
printer 
Description: A general ledger 
system that keeps track of all 
income (tenants'] and ex- 
penses providing financial re- 
ports and management infor- 
mation necessary to control in- 
come properties. This software 
package includes a check- 
writer, budgeting, and excep- 
tion reports like a list of delin- 
quent tenants. All information 
and reports are available im- 
mediately from the system 
either on the screen or printed. 
Price: $795.00 

Includes one year of 
maintennance 
Available: 

Realty Automation, Inc., 

221 N. Lois 

La Habra, CA 90631 

(213) 947-2762 



Name: Outpost 

System: OSI 

Memory: 8K 

Language: Machine Code 

Hardware: CIP/Superboard, 

Cassette 
Description: Take the ship 
movement from Asteroids, the 
swarming aliens from In- 
vaders, the rubber, bouncing 
ship from Omega System, and 
the constantly rotating fortress 
from Star Castle, and you're 
beginning to get an idea of 
what this high speed, original 



arcade game looks like. You 
have to recover the lost fuel 
cell and bring it back into your 
outpost, while dodging blocks, 
reproducers and the ever- 
present aliens (up to 20 of 
them swarming around at 
once!) Outpost can be played 
by one or two players. 
Price: $11.95 
Author: Dave Edson 
Available: 

Pretzelland Software 

2005 Whittaker Rd. 

Ypsilanti, MI 48197 



Name: The Too*™ 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: One disk II disk 
drive. Optional 
equipment 
includes one to 
four Corvus disk 
drives or up to 
eight disk II drives 
and a printer. 
Description: The Tool is 
designed to save programmers 
80% to 90% of development 
time. The Tool generates pro- 
gram code... machine language 
code. It provides an entry 
screen generator, a database 
manager, and a report format- 
ter. The Tool Operating 
System (TOS) allows files to 
span multiple disk drives. 
Whether you have four 
20-megabyte drives or eight 
floppy drives and 254 disk- 
ettes, TOS can use the storage 
space as one large file or 
several. 

Price: $395.00 special 
introductory price 
Includes program and 
complete documentation 
Available: 
High Technology Software 

Products, Inc. 
P.O. Box 14665 
2201 N.E. 63rd Street 
Oklahoma City, OK 73113 



Name: Foosball 

System: Apple II or Apple 
II Plus 

Memory: 48K 
Language: Assembly 
Hardware: One disk drive 
Description: No more dressing 
up and braving the elements to 
get your kicks in a smoky, 
noisy arcade. Now you and up 
to three of your friends can 
play Foosball at home. Divide 
into Grud and Robot teams and 



bash the ball around the 
screen. Two can play with pad- 
dles or up to four can play with 
Sirius Software's Joyport™ 
and two sets of paddles. 
Price: $29.95 

Includes diskette and 

documentation 
Author: Keithen 
Available: 

Your local computer store 



Name: AmperSoft 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Applesoft 
Hardware: RAM Card - 16K 

or32K 
Description: Provides four ex- 
tensions to Applesoft: print 
using, machine language sort, 
automatic disk storage and 
retrieval of arrays, and 
automatic matrix operations. 
Moves DOS onto RAM card to 
provide 10K additional pro- 
gram space. All extensions ac- 
cessed by simple commands 
within Applesfot programs. 
Price: $49.95 

Includes extensive 

documentation. 
Author: Cornelis Bongers 
Available: 

Micro-SPARC Systems 
Division, Dept. P 

P.O. Box 325 

Lincoln, MA 01773 



Name: CommuniTree — 

First Edition 

System: Apple II, Apple II 

Plus 
Memory: 48K 
Language: FORTH 
Hardware: Up to six disk 
drives; Hayes 
Micromodem II 
Description: CommuniTree — 
First Edition is a versatile tele- 
communications software pack- 
age that can create a wide 
variety of on-line computer 
conferencing and videotext 
facilities. The software makes 
a highly "intelligent" messag- 
ing system — its unique, tree- 
structured database format 
puts new messages directly 
and immediately where they 
belong. (No lengthy, time- 
consuming sorts to organize 
your information after the 
fact!) By connecting the com- 
puter with the telephone lines 
[via modem], the software lets 
many people share the infor- 
mation. Users of the system 
can call into the host computer 
with their own computer or 
terminal from remote loca- 
tions. The Turing Test, seven 



level password protection, and 
"private" section of the Con- 
ference Tree allow the host 
operator to choose just who 
uses the system. It can emu- 
late a public bulletin-board- 
like system, or a private pro- 
fessional exchange between 
colleagues, or both! 
Price: $120.. 00 

Includes manual, program 

disk, data disk. 
Available: 

The CommuniTree Group 

470 Castro 

Suite 207-3002 

San Francisco, CA 94114 

(415) 474-0933 



Name: Print Spooler 

System: The UCSD 
p-System™ 
Memory: 48K runtime 

environment; 64K 
development 
environment 
Language: Written in UCSD 

Pascal™ 
Hardware: 8086, 8080, 8085, 

Z80, 68000 
Description: The Print Spooler 
is a user-executable program 
which sends one or more text 
files to a printer while the user 
continues normal UCSD 
p-System operations, such as 
text editing or data entry. 
Price: $50.00 
(subject to change] 
Includes object code for the 
Print Spooler. 
Available: 
SofTech Microsystems, Inc. 
9494 Black Mountain Rd. 
San Diego, CA 92126 
(714) 578-6105 



Name: Capitalization 

Order #0339AD- 
C10 

System: Apple II or Apple 

II Plus 
Memory: 32K 
Language: BASIC 
Description: Capitalization is 
designed for students, writers, 
reporters — anyone who wants 
to learn or review the relevant 
laws quickly and effectively. 
Each of the 12 fundamental 
rules is concisely explained on 
the screen, then examples are 
given, followed by exercises. 
The computer keeps score and 
reports the level of mastery at 
the end of each set of exercises. 
Price: $24.95 
Author: Charles Barnes, 

Robert Large 
Available: 

Instant Software 

Peterborough, NH 
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Resource Update 


Iridis 

The Code Works 


PET Benelux Exchange 

$35.00 per year, quarterly (in Dutch] 


(Continued from page 100) 


Box 550 

5578 Hollister, Suite B 


Copytronics 

Burg, Van Suchtelenstraat 46 


S of talk 


Goleta, CA 93017 


7413 XP Deventer 


$18.00 per year, 12 issues 
Softalk Publishing, Inc. 


OSI-RELATED 


The Netherlands 


11201 Magnolia Blvd. 


The Aardvark Journal 


The Transactor 


North Hollywood, CA 91601 


$9.00 per year, 6 issues 


$15.00 (Canada] per year, (6-8 issues) 




Aardvark Technical Services, Ltd. 


Commodore Systems 


Stems From Apple 


2352 S. Commerce 


3370 Pharmacy Ave. 


$9.00 per year, 11 issues 


Walled Lake, MI 48088 


Agincourt, Ontario M1W 2K4 


$2.00 application fee 




Canada 


Apple Portland Program 


OSIO Newsletter 




Library Exchange 


$15.00 per year 


VIC Computing 


c/o Dick Stein 


c/o Rick Myers 


$20.00 per year 


P.O. Box 1608 


12004 Partillo Rd. 


Paradox Group 


Beaverton, OR 97075 


Bowie, MD 20715 


39-41 North Road 
London N7 9DP, 


T.A.R.T. 


OSI Users Group 


England 


$15.00 per year, quarterly 


c/o Richard Ellen 




The Apple Resource Team 


12 Bennerley Rd. 


SYM-RELATED 


c/o Sid Koerin, Editor 


London SW 11 




1706 Hanover Ave. 


England 


Sym-Physis 


Richmond, VA 23220 




$10.00 per year, quarterly 




OSI User's Independent Newsletter 


$13.50 per year, overseas 


User Magazine 


$10.00 per year, 6 issues 


Sym-1 Users' Group 


DM 50.- 


c/o Charles Curley 


P.O. Box 315 


Apple User Group Europe e.V. 


405 E. 3rd St. #123 


Chico, CA 95927 


Hackstuekstr. 11 


Long Beach, CA 90802 




D-4320 Hattingen 15 




TANDY RELATED 


West Germany 


Peek(65) 




(Printed in German) 


$15.00 per year, 12 issues 


The Rainbow 




P.O. Box 347 


$12.00 per year 


Washington Apple Pi 


Owings Mills, MD 21117 


5803 Timber Ridge Dr. 


$18.00 per year, 12 issues 




Prospect, KY 40059 


P.O. Box 34511 


PET-RELATED 




Bethesda, MD 20817 




TRS-80 Microcomputer News 




Commodore Magazine 


$12.00 per year, 12 issues 


AIM-RELATED 


$15.00 per year, 6 issues 


Tandy Corporation 




Commodore Business Machines, Inc. 


P.O. Box 2910 


Interactive 


68 1 Moore Road 


Forth Worth, TX 76113 


$5.00 for 6 issues 


King of Prussia, PA 19406 




Newsletter Editor 




80 Microcomputing 


Rockwell International 


Commodore PET Users Club 


$25.00 per year, 12 issues 


P.O. Box 3669, RC55 


Newsletter 


1001001 inc. 


Anaheim, CA 92803 


£ 10.00, 5-8 issues, £ 15.00 overseas 


80 Pine Street 




Commodore Information Centre 


Peterborough, NH 03458 


The Target 

$6.00 per year, 6 issues 


360 Euston Rd. 
London NW1 


NON-COMPUTER MAGAZINES 


Donald Clem, Editor 


England 




RR#2 




EDN (Electronic Design News) 


Spencerville, OH 45887 


Nieuwegein PET Users Group 


$25.00 per year, 22 issues 




Nijpelsplantsoen 252 


Cahners Publishing Co. 


ATARI-RELATED 


3431 SR Nieuwegein 


270 St. Paul Street 




The Netherlands 


Denver, CO 80206 


A.N.A.L.O.G. Magazine 


Attn: Hans Tammer or Louis Konings 




$10.00 per year, 6 issues 




Popular Electronics 


P.O. Box 23 


The Paper 


$15.00 per year, 12 issues 


Worcester, MA 01603 


$20.00 per year, 6 issues 


One Park Ave. 




c/o Centerbrook Software Designs 


New York, NY 10016 


Atari Computer Enthusiasts 


Pearl Street 




$10.00 per year, 10 issues 


Livingston Manor, NY 12758 


QST 


c/o M.R. Dunn 




$25.00 per year, 12 issues 


3662 Vine Maple Dr. 


Microcomputer Printout 


American Radio Relay League 


Eugene, OR 97405 


$29.00 (air) per year, 12 issues 


225 Main Street 




Stuart House, Perrymount Rd. 


Newington, CT 06111 


The Atari Connection 


Haywards Heath, West Sussex, U.K. 




$10.00 per year, quarterly 




Radio-Electronics 


Atari Incorporated 


73 Magazine 


$13.00 per year, 12 issues 


1265 Borregas Ave. 


$25.00 per year, 12 issues 


200 Park Ave., South 


P.O. Box 427 
Sunnyvale, CA 94086 


P.O. Box 931 
Farmingdale, NY 11737 


New York, NY 10003 
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Name: 16K/32K RAM 

board 

System: Atari 400/800 
Description: Part #H216, the 
Mosaic 16/32K RAM, adds 
16K to an Atari computer 
system. Upgrade to 32K is very 
easy using the $60 upgrade kit 
#H212. Atari 400 owners can 
use their existing 16K RAM to 
upgrade to 32K for $120. The 
Mosaic 16/32K RAM is of in- 
terest to owners of Atari 400 
with 16K, Atari 800 with 16K 
or 32K. 
Price: $119.95 - #H216 

$69.96— #H212 
Available: 

Mosaic Electronics 

P.O. Box 748 

Oregon City, OR 97045 



Name: 8-Bit, 8-Channel 

A/D system 

System: Apple 
Language: All 
Hardware: Any Apple 
Description: The Applied 
Engineering A/D board is an 
8-bit, 8-channel ; memory- 
buffered data acquisition 
system. Features: 8-bit resolu- 
tion, on-board memory, fast 
conversion (.078 ms), A/D 
process totally transparent to 
Apple (looks like memory). 
Price: $129.00 

Includes PC board and 

manual 
Available: 

Applied Engineering 



Name: Inductive Coupled 

Originate/Answer 
Modem 

System: General Purpose 
Description: Inductive- 
coupled modem eliminates 
room noise, vibration caused 
by acoustic coupling. 0.300 
baud, Bell 103-compatible. 
Orignate/Answer, half/full 
duplex, RS-232, TTL, CMOS- 
compatible. Cassette tape 
ports save data. 1 10V AC or 9U 
batteries. Crystal controlled. 
Price: $129.95 
Available: 

MFJ Enterprises, Inc. 

921 A Louisville Rd, 

Starkville, MS 39759 
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Name: Communications 

Cables 

System: All 

Description: Full line of 
RS-232 and RS-422/423 cables, 
adapters, interconnects for ter- 
minal, printer, and modem 
usage. RS-232 cables to custom 
lengths, switching boxes, 
parallel cables upon request. 
Disk data and power cables. 
Available: 

Interface Technology of 
Maryland 

P.O. Box 745 

College Park, MD 20740 

(301) 490-3608 



Name: PKASOTM 

Interface 

System: Apple II, Apple III, 
and Printers (see 
below) 
Memory: No restrictions 
Language: All popular 
languages 
including Pascal 
and CP/M 
Hardware: Epson MX-70, 

MX-80 (Graftrax), 
MX- 100, IDS 
560/Prism, 
Centronics 739, 
Okidata Microline 
80, 82, 83, 82A, 
83A 
Description: Complete inter- 
face between Apple and 
popular matrix printers. Has 
built-in firmware for snapshot 
print of any screen image — 
graphics or text. When used 
with a word processor, Pkaso 
adds software-definable sym- 
bols for subscripts or math 
notation, and allows graphics 
within the text. A gray-scale- 
processor directly prints com- 
puter photography. Pkaso 
commands furnish a simple 
hardware-independent printer 
control language. 
Price: $165 (U.S. list price) 
Includes interface card, 
cable, demonstration 
diskette, manual 
Available: 
Apple Dealers or 
Interactive Structures, Inc. 
P.O. Box 404 
Bala, PA 19004 
(215) 667-1713 



Name: Microsette 

Description: Diskettes, cas- 
settes for 6502 micros. Disk- 
ettes are certified, single-sided, 
soft-sectored, 5V4", with rein- 
forced hubs. 
Price: 10/$25 - diskettes 

10/$7.50 - cassettes (C10) 

Includes UPS shipping in 

continental USA. 
Available: 

Microsette Co. 

475 Ellis St. 

Mountain View, CA 94043 



Name: Single Board 

Computer — GMS 
6506/26/27 

System: 6500/6800/Z80 
Memory: 4K bytes RAM, 
16K bytes ROM 
Hardware: 6" x 9.75" board, 
EXORciser, 
System 65- 
compatible 
Description: Single board com- 
puters offering interchangeable 
6502, 6809, Z80 CPUs. ACIA, 
IEEE-488, printer ports. Eight 
I/O lines, two 16-bit timers, 
two 8-bit shift registers. VUA/ 
VKA, bootstrapping, power on 
reset, reset, base address and 
enable/disable switches. GMS 
6506 uses 6502 CPU; GMS 

6526 uses 6809 CPU, GMS 

6527 uses Z80 CPU. 
Price: $489 

Includes GMS 6506, 6502 
CPU, 1 MHz, one-year 
warranty 
Available: 
General Micro Systems 
1320 Chaffey Ct. 
Ontario, Canada 91762 



Name: uCortex™/65 

System: 6502 single board 

computer/ 

controller 
Memory: IK RAM, socket 

for 2K EPROM 

(2716) or4K 

EPROM 

(TMS2532 or 

equivalent) 
Language: 6502 
Description: 6502 8-bit micro- 
processor, 16 I/O lines, TTL- 
compatible, each line inde- 
pendently programmable as in- 
put or output, 4 auxiliary con- 



trol lines, 2 x 16-bit timer/ - 
counters, 2K or 4K EPROM 
single jumper selectable, on- 
board 555 power-on reset cir- 
cuit or external reset signal, 
non-maskable interrupt con- 
trol on connector pin, crystal- 
controlled clock for precise 
timing applications, pinout- 
compatible with AIM 65 ap- 
plication connector, timing 
loops compatible with AIM 65, 
develop and test program on 
AIM 65, then transfer EPROM 
touCortex™/65. 
Price: $79.95 

Includes board, assembled 

and tested (EPROM not 

included) . 
Available: 

Cortex Research Corporation 

1912 Raymond Drive 

Northbrook, IL 60062 

(312) 480-1088 

Name: Video-Printer 

Stand 

System: For use with 
TRS-80 Color 
Computer, 
Videotex, Atari 
400, 800, Apple II 
or III, and others. 
Most small to 
medium sized 
printers, MX-80, 
MX- 100, etc. 
Description: Place a TV (or 
printer) on the VideoTMnter 
Stand and the keyboard (or fan- 
fold paper, disk drives, etc.) 
slides right under. Desk top 
work space is increased, the 
screen is raised to eye level, all 
components are within easy 
reach, and the keyboard 
distance from the monitor can 
be adjusted as desired. The 
Video-Printer Stand's sturdy 
metal construction will easily 
support any portable color TV. 
Dim.: 19^4" x 12" x6 3 4". 
Price: $39.95 
Includes choice of black or 
beige. 
Available: 
Advanced Effort-Saver 

Products, Inc. 
P.O. Box 5001 
Hialeah, FL 33014 
(305) 821-9961 



(Continued on next page) 



MICRO - The 6502/6809 Journal 



111 



Hardware Catalog (continued) 



Name: Datalok 

System: Apple II 
Memory: 48K RAM 
Language: Applesoft 
Hardware: One disk drive, 
DOS 3.2 or 3.3 
Description: Datalok provides 
two basic utilities for the user: 
the ability to encrypt and 
decrypt any file created under 
Apple DOS — i.e., text, in- 
teger, binary, Applesoft, etc.; 
and the ability to lock and 
unlock an entire disk — i.e., 
render a disk inaccessible and 
unbootable to an unauthorized 
user. Provided also is a 
diagnostic program enabling 
the user to verify the system's 
operation while providing ex- 
pertise on DES for the inex- 
perienced user. 
Price: $349.00 
Available: 

Atlantis Computers 

31-14 Broadway 

Astoria, NY 11106 

(212} 728-6700 



Name: Disk Head 

Controller (DMC) 

System: OSI Mini-floppy, 

CI or C2 or C4 
Hardware: Single PCB 
Description: This loads and 
unloads the head, and turns off 
the drive motor after five 
seconds (from the last disk ac- 
cess) . No tracks to cut; simply 
unplug your disk connector 
and connect to the DMC, then 
plug the DMB connector to 
your disk drive. 
Price: $19-$95 — bare PCB 

$69-$95 — fully assembled 

and tested 

Includes PCB, plus full 

instructions, one year 

warranty (assembled and 

tested version) . 
Available: 

G. Cohen 

72 Spof forth St., 

Holt, Act, 2615 

Australia 



Name: Adventure: CI 

Sound 

System: OSI C1P Series 1 
(without sound) 
Description: An inexpensive 
(and entertaining) data sheet 
giving simple instructions for 
adding the components for 
sound that OSI left out. Cost of 
the parts is about $1.00, 
available at any electronics 
store. For both Superboard II 



and C1P. Sound adds an unbe- 
lievable dimension to your 
computer. You'll never play 
another silent game once 
you've heard it. 
Price: $2.75 

(Free with purchase of two 

Pretzelland sound games!) 
Available: 

Pretzelland Software 

2005 Whittaker Rd. 

Ypsilanti, MI 48197 . 

(313) 483-7358 



Name: Instant ROM, 
ROM/EPROM 
Emulators 

System: Any 
Hardware: ROM/EPROM 

Sockets 
Description: Instant ROM is 
2K, 4K, or 8K of CMOS 
memory with internal battery 
back-up, in a standard 24-pin 
ROM/EPROM package. When 
plugged into a ROM socket, a 
single connecting lead enables 
it to be programmed like RAM, 
at normal system speeds. 
When the power is switched 
off the program remains. The 
internal lithium cell gives 
typically 10 years life. Uses: 
custom font character sets for 
printers and video terminals, 
speech synthesizer ROMs, 
long-term data storage in log- 
ging systems, utility programs 
in personal computers, etc. In- 
stant ROM is available now in 
2516/2716/2532/2732/2364 
pinouts. Application notes are 
available. 
Price: $78.00 - 2K 

$112.00 -4K 

$178.00 - 8K 

Includes application notes, 

read/ write connector with 

lead. 
Available: 

LMS Electronics 

3401 Monroe Road 

Charlotte, NC 28205 

(704) 376-7805 



Name: ADA 1600 

System: PET/CBM 
Computers 
Language: BASIC 
Hardware: Printer adapter 
Description: The ADA 1600 
allows PET/CBM computers 
to use standard centronics- 
type printers. It has a two-foot 
cable that plugs into the PET 
IEEE port. Another IEEE card 
edge is provided for connecting 
disks and other peripherals. 
The address is switch-select- 
able. The switch selects upper/ 



lower case. A four-foot cable 
with a standard 36-pin Cen- 
tronics connector is provided. 
Price: $129.00 
Available: 

Connecticut microcomputer 

36 Del Mar Dr. 

Brookfield, CT 06804 

(203) 775-4595 



Name: PKASO Interface 

System: Apple II and Apple 

III 
Language: Pascal, CP/M, 
BASIC, 

Assembler, etc. 
Description: Printer interface 
family for the Apple II and III 
and Epson, Centronics, Oki- 
data, IDS, NEC printers. Con- 
verts your system to a com- 
plete text and graphics output 
system. Everything is included 
to start printing letters using 
your favorite text processor 
program, or to start printing 
hi-resolution graphics exactly 
as you see it on the screen. No 
disk shuffling or program 
swapping is required to use. 
Price: $165.00 
Includes interface, cable, 
comprehensive user manual 
and demonstration disk. 
Available: 
Any Apple Dealer 
or Factory Direct 



Name: AIM 65 Enclosure 

and Power Supply 

System: Rockwell AIM 65 
Description: Brown, textured 
ABS plastic with an aluminum 
base. Case comes with power 
supply mounting brackets as 
well as circuit breaker and line 
cord. Optional power supply 
provides +5 V at 3 amps and 
+ 24 V at 0.5 amps. 
Price: $165.00 w/p.s., Model 

A65-006 

$95.00 w/o p.s., Model 

A65-002 
Available: 

Hamilton-Avnet 

and all franchised AIM 65 

dealers 



Name : Chieftain 5 l A " 

Winchester Series 
of Computer 
Systems 

Memory: 64K RAM 
Language: BASIC, COBOL, 

Pascal, FORTH, 

Assembler 
Description: Smoke Signal, 
manufacturers of the 
6809-based Chieftain™ com- 
puter systems, have announced 
a new addition to the existing 
line of 5 l A" and 8" floppy- 



based, and 8" Winchester- 
based systems: the new SVa" 
Winchesters. Announced are 
95W4, 95XW4, 98W15, 
9W15T20. The 95W4 and 
95XW4 support 360K and 4 
Mbyte drives, and 750K and 4 
Mbyte drives, respectively. 
The 98W15 provides one 8" 
floppy (1 Mbyte) and a 15 
Mbyte 5W Winchester. The 
9W15T20 has a 20 Mbyte Tape 
Streamer and a 15 Mbyte 5Va" 
Winchester. All systems run 
DOS69D and the new UNIX- 
like OS-9 Levels I and II multi- 
user, multi-tasking operating 
system. 
Price: $6895 - #95W4 

$7195 - #95XW4 

$9695 - #98W15 

$11195 - #9W15T20 
Available: 

Smoke Signal 

31336 Via Colinas 

Westlake Village, CA 91362 

(213) 889-9340 



Name: Color Port 

System: TRS-80 Color 

Computer 
Memory: 2K of RAM or 2K 

of EPROM 
Language: Any 
Hardware: Plug-in Cartridge 
Description: Adds powerful 
I/O capability to TRS-80 Color 
Computer. Results in a very 
cost-effective 6809-based con- 
trol system. Adds two fully 
programmable 8-bit bidirec- 
tional parallel ports with full 
handshaking. Full interrupt 
capability is supported, and 
computer voltage and logic 
control lines are brought out to 
the standard edge connector. A 
socket in the cartridge allows 
insertion of either 2K of RAM 
or 2K of EPROM that allows 
software for the control of I/O 
to be stored separately from 
the main user memory space. 
Provision is made for selection 
of both autostart of the 
memory in the cartridge and 
synchronous reset of the car- 
tridge and the computer. 
Price: $129.95 with full 

instructions plus optional 

2K RAM for $19.95, 2K 

EPROM for $12.95. 

Includes hardware cartridge 

and full description and user 

manual. 
Available: 

Maple Leaf Systems 

P.O. Box 2190 

Station C 

Downsview Ontario 

Canada, M2N 2S9 

(Continued on next page) 
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Hardware Catalog (continued) 



Name: Power Pack 
System: TRS-80 Color 

Computer 
Memory: 16K 
Language: Assembly 
Hardware: TRS-80 
Description: The Power Pack 
allows you access to the 6809 
microprocessor inside the Col- 
or Computer, and provides ad- 
ditional memory for the more 
sophisticated programs. It is a 
cartridge to plug into the ex- 
pansion slot that contains a 
powerful monitor plus 6K of 
RAM. Special versions of such 
software as the Color Editor, 
Color Assembler, and Color 
Pascal are available for the 
Power Pack, thus eliminating 
the need for 32K and allowing 
the monitor to be resident. 
Price: $159.95 includes car- 
tridge, diagnostics cassette, 
instructions 
Available: 
Computerware 
P.O. Box 668 
Encinitas, CA 92024 
(714) 436-3512 



Name: Time Machine II 

System: Apple II 
Description: Time Machine II 
is a one-second to 99-year real 
time clock. A powerful 
2048-byte firmware driver adds 
many user-friendly options, in- 
cluding READ, FORMAT, IN- 
TERRUPT, and SET com- 
mands. Included is software 
DOS DATE-STAMPER to date 
disk files, a 50-page manual, 
and battery backup. Optional 
software includes APPLE 
SPOOL, an interrupt-driven 
printer spooler. Listings are 
buffered in memory then 
spooled to the printer. Once a 
file is in the buffer, other pro- 
grams can be executed. 
Price: $139.00 retail 
APPLE SPOOL $19.95 
(optional) 
Available: 
Creative Software Dev. 
4657 Thayn Drive 
West Valley City, UT 84120 



Name: VDISK™ 

System: 6809 with 
FLEXTM 

Memory: 56K Plus 
Language: Machine Language 
Hardware: 6809 with 
extended 
addressing 
Description: VDISK allows 
FLEX users to treat extended 
memory as a super-fast disk 
drive. This "virtual" disk 
drive has its own directory and 
may contain program and data 
files. Files may be copied to it 
and from it. All FLEX utilities 
and user programs may read 
from and write to this drive, 
just as with any other drive. 
The virtual disk operates much 
faster than a physical disk, 
however. The speed advantage 
apparent to the user will de- 
pend on the amount and nature 
of disk operations being carried 
out. The time required to load 
a binary file is negligible. 
Price: $99 

Author: fames Arbuckle 
Available: 

For dealer list contact: 

James Arbuckle 

P.O. Box 328 

Ambler, PA 19002 

(215) 643-0788 



Name: Micromodule™ 

17 Monoboard 
Microcomputer 

System: Any EXORbus ™- 
based system 
(M68MM17) 
Memory: Up to 40K bytes 
ROM, RAM, or 
EPROM 
Software: Supported by 
SUPERbug™ 
debug monitor 
and RMS09 
executive 
Description: This module con- 
tains the MC6809 MPU, five 
sockets for program memory or 
static RAM, PIA with buffered 
interface, two ACIAs with RS- 
323 C interface and a tripple 
programmable counter timer 
(PTM). Operates at 1 MHz. 
Price: $495.00 (1 to 5 quan- 
tities) includes user's guide 
Available: 
Motorola Semiconductor 

Products, Inc., 
Atten: Microsystems 

Marketing 
P.O. Box 20912 
Phoenix, AZ 85036 
(602) 244-5714 
or Motorola Sales Offices 

JMCOO 



&T 



^er^Vfogic, 



MACHINE LANGUAGE SPEED 
WHERE IT COUNTS... 

IN YOUR PROGRAM! 



For the first time, AmperMagic makes it easy for people who don't know 
machine language to use its power! Now you can attach slick, finished machine 
language routines to your Applesoft programs in seconds! And interface them 
by name, not by address! 

You simply give each routine a name of your choice, perform the append pro- 
cedure once at about 15 seconds per routine, and the machine language becomes a 
permanent part of your BASIC program. (Of course, you can remove it if you want to.) 

Up to 255 relocatable machine language routines can be attached to a BASIC 
program and then called by name. We supply some 20 routines on this disk. More 
can be entered from magazines. And more library disks are in the works. 

These routines and more can be attached and accessed easily. For example, 
to allow the typing of commas and colons in a response (not normally allowed in 
Applesoft), you just attach the Input Anything routine and put this line in your program: 

xxx PRINT "PLEASE ENTER THE DATE."; : & INPUT,DATE$ 

&-MAGIC makes it Easy to be Fast & Flexible! 

PRICE: $75 



&-Magic and Amper-Magic are trademarks of Anthro-Digital, inc. 
Applesoft is a trademark of Apple Computer, Inc. 



Some routines on this disk are: 

Binary file info 

Delete array 

Disassemble memory 

Dump variables 

Find substring 

Get 2-byte values 

Gosub to variable 

Goto to variable 

Hex memory dump 

Input anything 

Move memory 

Multiple poke decimal 

Multiple poke hex 

Print w/o word break 

Restore special data 

Speed up Applesoft 

Speed restore 

Store 2-byte values 

Swap variables 

Anthro - Digital Software 

P.O. Box 1385 

Pittsfield, MA 01202 

The People - Computers Connection 
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1. MICRO No. 44 (January, 1982) 

Smith, Wayne D., "Some Help for KIM/' pg. 69-72. 

Hardware and software for an improved single-step 
function. Also included is a trace function. Switch- 
selectable K areas can be provided that will allow the use 
of a single- step program stored in any of the several K 
areas of the KIM micro. 



6. Mini'App'Les 5, No. 1 (January, 1982) 

Buchler, Dan, "Apple Plus 68000 equals DTACK 

Grounded/' pg. 8-9. 
Interfacing the Apple with the 68000 microprocessor 
gives your micro the capabilities of a next generation 
16-bit system, Speed improvements of 6 to 13 times 
are claimed. 



2. POKE-Apple 3, No. 12 (January, 1982) 

Garvey, Michael, "Storing and Reading an Array on 

Disk," pg. 23-25. 

The time to write or read a "binary' ' file is significantly 
less than it takes for a "text" file. Here's how to save 
numeric arrays on the Apple. 



3. POKE-Apple 3, No. 12 (January, 1982) 

Haluza, Doug, "Adding Commands to BASIC with 
CHRGET," pg. 37-40. 

An explanation of the PET command called CHRGET 
and how to use it. An example utility is given. 



4. Creative Computing 8, No. 1 (January, 1982) 

Ahl, David H. andLubar, David, " Computer/ Videodisk 
Coupling." 

The combination of a videodisk player with a 
microcomputer affords a novel new area of instruc- 
tional programs, games, etc. Equipment for im- 
plementing an Apple with a Pioneer VP-1000 
videodisk player is described. A typical game listing 
and an explanation of its use is given. 



5. Creative Computing 8, No. 1 (January, 1982) 

Cook, Willis, "Disk Copying with A Single Eight-Inch 
Drive," pg. 4-6. 

Listing of a program for OSI micros C2-4P or C4P to 
copy without the benefit of two drives. By filling 
available RAM memory with as much data from a disk 
as the memory will hold and then dumping to a swap- 
ped target disk, a full 73-track disk can be copied in 
twelve swaps. 



7. Atari Computer Enthusiasts (January, 1982) 

Chastain, Ed, "Savmov: Disassembly of Cartridge Pro- 
grams," pg. 4, 10. 
A program for the Atari user interested in assembly- 
language programming. Two utilities named Saver 
and Mover to use in examining Atari cartridges. Saver 
creates a cassette-bootable tape, and Mover is used to 
relocate the cartridge program in RAM. 



8. Compute! 4, No. 1, Issue 20 (January, 1982) 

Butterfield, Jim, "TINYMON1: A Simple Monitor for 

the VIC," pg. 176-179. 
A tape-loadable monitor for the VIC color computer, 
honoring all commands of the built-in monitors on 
other CBM systems. 



9. The Transactor 3, Issue No. 4 (January, 1982) 

Hook, David A. and Ontario, Barrie, "Word Count 9," 

pg. 28-36. 
A utility for PET/ CBM systems to count the number 
of words in a word processor file. For a WordPro file 
with 2200 words, a conventional BASIC program 
might require 21 minutes to count the file, while the 
machine-language routine here counted the same file 
in 13 seconds. 



10. Dr. Dobb's Journal 7, Issue 1, Number 63 (January, 
1982) 

Fusina, Luca and Granuzzo, Claudio, "Interfacing the 
68000 to an AIM 65," pg. 12-17, 36-38. 

Hardware and software to interface the 16-bit 68000 to 

the AIM 65. 
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Number Conversion 
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BASIC Hex to Decimal 




10 


REM DELETE 70 & 80 FOR PET & OS! 


15 


REM AND ENTER 90 AS: Z = 


= Z*16 + Y-48 + 7*(Y>57) 


20 


REM X$<=FFFF 




30 


INPUTXS 




40 


Z = 




50 


FOR J = 1 TO 4 




60 


Y = ASC(MID$(X$,J,1)) 




70 


IF Y>57THEN YY= -1 




80 


IF Y< =57 THEN YY = 




90 


Z = Z*16 + Y-48 + 7*YY 




100 


NEXT J 




110 


PRINT Z 





BASIC Decimal to Hex 

10 REM X < 65536 

20 INPUT X 

30 X = X/4096 

40 FOR J = 1 TO 4 

50 IF X>9 THEN PRINT CHR$(X + 55); 

60 IF X < =9 THEN PRINT CHR$(X + 48); 

70 X = (X-INT(X))*16 

80 NEXT J 



ASCII Character Codes 



CN 



o 

(0 







Bits 5 


,6,7 












HEX 





1 


2 


3 


4 


5 


6 


7 


BITS 


000 


001 


010 


011 


100 


101 


110 


111 





NUL 


DLE 


SPACE 





O 


P 


\ 


P 


1 1 


SOH 


DC1 


f 


1 


A 


Q 


a 


q 


2 10 


STX 


DC2 


" 


2 


B 


R 


b 


r 


3 11 


ETX 


DC3 


# 


3 


C 


S 


c 


s 


4 10 


EOT 


DC4 


$ 


4 


D 


, T 


d 


t 


5 10 1 


ENQ 


NAK 


% 


5 


E 


U 


e 


u 


6 110 


ACK 


SYN 


& 


6 


F 


V 


f 


V 


7 111 


BEL 


ETB 


' 


7 


G 


w 


g 


w 


8 10 


BS 


CAN 


( 


8 


H 


X 


h 


X 


9 10 1 


HT 


EM 


) 


9 


I 


Y 


i 


y 


A 10 10 


LF 


SUB 


* 




J 


z 


J 


z 


B 10 11 


VT 


ESC 


+ 


; 


K 


[ 


k 


{ 


C 110 


FF 


FS 


, '. 


< 


L 


/ 


i 


I 


D 110 1 


CR 


GS 


- 


■ ■==: . 


M 


] 


nn 


} 


E 1110 


SO 


RS 




> 


N 


A 


n 


ru | 


F 1111 


SI 


US 


/ 


? 





— 





DEL 



JMCRO 



Data Sheet #5 









: ; i;i:;J 



Dr. William R. Dial 
438 Roslyn Avenue 
Akron, OH 44320 



6809 Bibliography 



35. Popular Computing 1, No. 2 (December, 1981) 

Firedrake, George and Zamora, Ramon, "My Computer Likes 
Me/' pg. 76-80. 

A music program for the 6809-based TRS-80 Color 

Computer. 

36. BYTE 7, No. 2 (February, 1982) 

Harden, William, "Voice Synthesis for the Color Computer," 

pg. 258-286. 

A hardware and software article for users of the 6809-based 
TRS-80 Color Computer. 

Dubner, Joseph L., "6809 Machine-Code Disassembler," 

pg. 340-364. 

A small and fast disassembler, both reentrant and relo- 
catable, allowing it to be placed anywhere in RAM or ROM. 

37. CSRA Computer Club Newsletter (February, 1982) 

Gresham, Jim, "Color Computer Ramblings," pg. 1. 

Start addresses in ROM of the Extended BASIC in the 
TRS-80 Color Computer based on the 6809 chip. 

38. Creative Computing 8, No. 3 (March, 1982) 

Linzmayer, Owen, "Chromasette Magazine," pg. 36. 

Chromasette is a monthly magazine on a 30-minute 
cassette containing six to eight carefully debugged pro- 
grams for the TRS-80 Color Computer. 

39. Softalk 2, No. 4 (December, 1981) 

Coats, Douglas E. and Waldman, Cye H., "FORTRAN," 

pg. 160-172. 

In a discussion of FORTRAN for the Apple, some bench- 
mark tests are reported which showed that FORTRAN 
operating with the 6809-based board, The Mill, outper- 
formed FORTRAN with the native Apple in all respects, 
and also outperformed the FORTRAN80 (Softcard) in 
floating-point operations but not in other operations. 

40. TRS-80 Microcomputer News 4, No, 1 (January, 1982) 

Anon., "The More Serious Side of the CC/' pg. 42. 

Miscellaneous notes on the TRS-80 Color Computer. 
Meyers, J.W., " Shoot-Em Again, " pg. 43-44. 

A game for the TRS Color Computer. 
Jamieson, John, "Core Editor," pg. 44. 

A simple core editor useful for writing machine language 

routines and wandering around in the BASIC object code of 

the 6809-based TRS-80 Color Computer. 

41. 80 Microcomputing Issue No. 27 (February, 1982) 

Wood, James W., "Colorful Titrations," pg. 202-203. 
A chemical educational graphics program for the TRS-80 Col- 
or Computer. 

42. Microcomputing 6, No. 3, Issue 63 (March, 1982) 

Farnsworth, Dan, "More on the 6809," pg. 170. 
Miscellaneous notes on the 6809 including a report that a 
prime numbers program requiring 58 seconds on an IBM 360 
or six hours, 20 minutes on a TRS-80, required only one sec- 
ond on a 2MHZ 6809. 

43. MICRO No. 46 (March, 1982) 

Borgerson, Mark J., "A Disassembler for the 6809," pg. 89-94. 
A disassembler written in Microsoft BASIC which will run 
on either the Apple II (using Applesoft) or on the Radio Shack 



TRS-80 Color Computer. Includes a description of the opera- 
tion of the disassembler. 

Harden, William, Jr., "Build A Half-year Clock for the Color 

Computer," pg. 100-122. 
A self-contained clock for the TRS-80 Color Computer is 
described in this hardware article. 

44. 80 Microcomputing Issue No. 22 (October, 1981) 

Barden, William, Jr., "The Assembly Line," pg. 42-49. 
A discussion of assembly language for the 6809 as im- 
plemented on the TRS-80 Color Computer. 

Kitsz, Dennis, "80 Applications," pg. 52-64. 
Discussion of the key addresses on the 6809-based TRS-80 
Color Computer and Babybug for the Color Computer. 

Anon., "Reload 80," pg. 366. 

Some notes on programs for the TRS-80 Color Computer. 

45. 80 Microcomputing Issue No. 23 (November, 1981) 

Barden, William, Jr., "The Assembly Line," pg. 50-56. 

Machine-language routines in the 6809-based TRS-80 Color 

Computer. 

Kitsz, Dennis, "80 Applications," pg. 78-96. 
A discussion of TRS-80 Color Computer expansions avail- 
able, including Extended Color BASIC, higher speed I/O, 
memory expansion, etc. 

Wood, James W., "Colorful Maneuvers," pg. 328-330. 
A game for the TRS-80 Color Computer. 

46. 80 Microcomputing Issue No. 24 (December, 1981) 

Wrye, Charles T., "Color Concentration," pg. 298-300. 
A game for the 6809-based TRS-80 Color Computer. 

47. 80 Microcomputing Issue No. 25 (January, 1982) 

Berenbon, Howard, "It's a Big, Big, Colorful World," pg. 72-73. 
Discussion of the use of the 6809-based TRS-80 Color Com- 
puter in telecommunications. 

Kitsz, Dennis, "80 Applications," pg. 342-360. 
Hardware article on replacing the keyboard on the 
6809-based TRS-80 Color Computer with a TRS Model 1 
keyboard. 

48. 80 Microcomputing Issue No. 27 (March, 1982) 

McClenahan, ShawnA., "Where There's A Will...," pg. 84-86. 

Hardware and procedure to allow the TRS-80 Color Com- 
puter to print while hooked into a telecommunications 

system. 
Ledger, Anthony M., "Color Reversi," pg. 90-101. 

A fast moving version of Othello for the 6809-based TRS-80 

Color Computer. 
Murphy, Brian, "Color Computer Upgrade," pg. 102-105. 

How to install additional memory on the TRS-80 Color 

Computer. 
Steiner, John, "Subchaser!", pg. 106-111. 

A game with color graphics for the Radio Shack Color 

Computer. 
Esposito, Richard, "Smarten Up, Color Computer, " pg. 126-128. 

Installing an extra 16K of RAM in the TRS Color Computer. 
Green, Roy, "Is A Rose In Color Still A Rose?", pg. 142-150. 

Translation of TRS-80 programs for the Color Computer. 
McClenahan, Shawn A., "RAM Wars" pg. 156-161. 

Hardware article to install 64K of RAM in the TRS-80 Color 

Computer. 

JMCftO 
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It's All 1 's and O's 



ACROSS 

1. Clear it to add; set it to subtract (6502) 

3. 6502 hex op code for "load accumulator, absolute" 

5. Substantiate 

9. ASCII zero 

10. Base 8 

11. Opposite of last 

13. Manufacturer of Color Computer 

15. Branch on result not zero (6502) 

16. Increment accumulator A (6809) 

17. Manufacturer of 68000 microprocessor 

20. Metal used in galvanizing 

21. Transfer accumulator to X register (6502) 

22. Base 10 

25. FOR 1 = 1-10 

26. Hexadecimal E 
27.12*15*13/(192-24*8) 

28. Integrated circuit 

29. It marks your place on the screen 
32. The easy way out 

34. Something deserved by a question 

36. The adjacent side divided by the hypotenuse 



DOWN 

1. To put two strings together 

2. Form of addressing for branch instructions 

4. Goes with BASIC READ 

5. BASIC function to get a number from a character 

6. First step when accessing a disk 

7. Affirmative 

8. Turning the power on is a - — start 

12. PET stands for Personal Electronic ----- 

14. Goes with BASIC FOR 

15. Less than a byte 

18. Not imaginary 

19. Twos complement of $42 

22. Important page for the 6809 

23. What CLC does to the carry 

24. First key to wear out 

25. How the SHIFT LOCK key works 

26. Countenance or 64206 in hex 

30. Mnemonic for 'subtract with borrow' 

31. How to get back from a machine language subroutine 
33. Conditional statement 

35. 238 in hex 



In the 6502 puzzle in the April "It's 
All 1 's and O's," the second line of code 
should read: 

6D00 6C FF 6D START JMP (VECTOR) 

Thanks to John Kiout of AiUngton, VA 
fox noticing the error. 



PIease sencI yoim 

UNUSUAL obsERVATiONS, 

puzzles, pRoqRAMMJNq TRicks, 

sySTEM pIlOTOS, ETC. 

to Dr. Bob, 

MICRO, 

P.O. Box 6902 

CkElMsfoRd, MA 01824 



Answers to the Crossword Puzzle will 
appear in next month's MICRO. 
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APPLE 



J) Za iJl 839-947V 




PARALLEL PRINTER CARD 

A Universal Centronics type parallel 
pnnier board complete with cable and 
connecior This unique board allows 
you to turn on and oft the high bit so 

that you can access additional teatures 

in many printers Use with EPSON. 

ANADEX, STARWRITER. NEC. OKI, 
and other with standard Centronics 

configuration $139 00 



DOUBLE DOS Plus 




DOUBLE DOS Plus — a piggyback 
board that plugs into the 
disk controller card so that you 
can switch select between 
DOS 3.2 and DOS 3 3 

Nothing needs to be soldered, just plug in and go Since all four ROMS are 
used, all software will work, the ROMS tit on the back of the board 
allowing full use of slot #7 One set of ROMS is powered up at a time, 

DOUBLE DOS Plus requires APPLE DOS ROMS $39 = 00 




*M* tT 



EXPANDED USER MANUAL 



nnusmrii 



TIMATE NEW AND IMPROVtD DIS 



HACK I If SYSTEM 



TRACKISECTOR EDITOR 

Dn DISK DIAGNOSTICS 

ft0G «AAt ton 

MO0 ' p 'CAr,o*, 

FAST & MORE ACCURATE 



, a greatly enhanced and im- 
IBBLESAWAY Many new and 
:ed in NIBBLES AWAY II to in- 



NIBBLES AWAY II, second edition, 

proved version of our earlier product 

exciting teatures nave been impleme 

sure State ol the Art' reliability 

Other similar systems on the market today (regardless ol price) can' 

begin to compare with all the teatures built into NIBBLES AWAY II" 



Updates will be marie available lo all earlier versions 
COMPUTER applications lor a modes, charge 

;over manual, Diskette, and Postaae & Handling 
include NAME and SERIAL * ol ORIGINAL 




ONLY 5 6y 

Dealer Inquiries Invited. 




E(B£S THE StFTMnn HO -UP 8L1ES 



3D Robot Tank 



fast Machine Language. 3D Hires 
Animation Arcade game with sound. 
Look out ot vour turret and try to 
blast the enemy tanks and saucers. 

3D Animation adds to the effects and use ot the game paddles or ( oystick give you 

command of your tank. ONLY $29.95 

o oo o oo ooo oo o o o ooooooooo d o oooo oo ooo oooeo e oo o oo oo oo 

Stipes PIX HIRES SCREEN DUMP 

The Software package that will allow your printer to dump page 1 or page 2 of the 
Apple Hires screen hori?ontally or vertically. Use with EPSON'* MX-80 with or 
without GRAFTRAX*' Roms, MX-70 - OKI'^Microline 80, 82, 83, 82A, 83A - 
C ITOH"* 8510 and NEC, Requires Tymac Parallel_ Pnnter Board 

PPC-100. MX 80 Version $39 all others . $24 95 

» > ■ » >» : *■ »> ■ » JX J X -» ** * ** ****** 

THE APPLE CARD— Two sided 100% plastic reference care 
Loaded with information ot interest to all Apple owners $3 96 




MICBOW&RE DIST. INC 



P.O. BOX 113 
POMPTON PLAINS, N.I. 
07444 



Advertiser's Index 



Aardvark Technical Services, Ltd 71 

Andromeda, Inc. .......... . ... . .... .49 

Anthro-Digital Software. . . 113 

Apex Co., Ltd . ............... . . . . . ... ..86 

Apple Tree Electronics . ... . .55 

Ark Computing 44 

Arrow Data Systems . . - 81 

Astar International Co 6 

Aurora Software Associates ....... . 81 

Avant Garde Creations . 89 

Beagle Brothers Software. 68 

Business Computers of Peterborough 62 

Chandler Microsystems 104 

Comp-U-Gamer ...... 61 

CompuTech . . 107 

The Computerist, Inc IBC 

Computer Mail Order . ..... ... . .56 

Computer Mat 62 

Computer Science Engineering 85 

Computer Systems Design 98 

Connecticut Information Systems Co 53 

Crow Ridge Associates 104 

Datamost Catalog Insert 

Data Transforms, Inc 86 

Decision Systems 85 

D&N Micro Products, Inc. . 86 

Dr. Dobbs Journal 59 

Eastern House Software 92 

Eastern Software Distributors 104 

ESD Labs Co., Ltd 21 

Execom Corp 62 

Genesis Information Systems Inc 20 

Gimix, Inc 1 

Gnosis 108 

GOSUB International, Inc 74 

Hogg Laboratory Inc. 98 

Hudson Digital Electronics Inc 12 

Huntington Computing BC 

Interesting Software . . . . 96 

Keystone Data Consultants 15 

MICRObits (Classifieds) 70, 92 

MICRO INK, Inc 65, 82 

MicroMotion 62 

Microsoft Consumer Products IFC 

Micro Ware Distributing Inc. ..119 

Microware Systems Corp 18 

Modular Mining Systems 107 

Modular Systems 27 

Nibble 76 

Nikrom Technical Products .72 

Olympic Sales Co 70 

Perry Peripherals 47 

Pretzelland Software .72 

The Prime Factor 104 

Progressive Computing 90 

Rosen Grandon Associates . 52 

Samauri Software 74 

Sensible Software 16, 38 

SGC 29 

S&H Software 85 

Sirius Software 25 

Skyles Electric Works 30 

Small Systems Engineering 33, 48 

Softside 91 

Southwestern Data Systems ■ . . 4 

Stellation Two 66 

Sublogic Communications Corp. 2 

Talbot Microsystems . .... . 98 

Technical Products 72 

Versa Computing, Inc. . . 22, 39 

Wesper Microsystems. 102-103 

The Winchendon Group 98 

Word's Worth 108 

MICRO INK, Inc. is not responsible for claims made by its adver- 
tisers. Any complaint should be submitted directly to the adver- 
tiser. Please also send written notification to MICRO. 
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J iily Apple Feat lire 

• Build An Apple Cart — Even if you live in 
an apartment and have only a few hand 
tools, it's possible for you to build a home 
for your Apple for less than $50. 



• An Overview of Apple DOS — This article 
provides general information on the 
functional blocks of code in DOS. Thus 
Apple users can manipulate DOS, permit 
DOS modification, and allow machine 
language access to DOS commands. 

• Lo-Resolution Graphics for Apple Pascal 

— Here's a method to access the Apple's 
lo-res capabilities from Apple Pascal. 

New Apple Column! 

July brings the first installment of our Apple 
column, written by Apple expert, Tim Osborn. 
Tim's discussion will cover passing parameters 
from Applesoft to machine language and back 
again. 



20% OFF 

Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 20% (in the U.S.). 

Pay only $24.00 ($2.00 a copy) for 12 monthly 
issues of MICRO sent directly to your home or 
office in the U.S. 



More July Articles 

Auto Entry for the C1P 
Removing Frustrating Interference 
Timing and Counting with the 6522 
Computer-Assisted Translation of Programs 

from 6502 to 6809 
AIM Tape Copy Utility 



Plus Our Regular Columns and 
Departments... 

PET Vet 

The Single Life 

Reviews in Brief 

Tech Data Sheet (Apple) And more! 

The Rest of '82 

Look for our features in upcoming months: 
August — Programming Techniques 
September — 68000 
October — Education 
November — Atari/Games 
December — PET 

More MICRO for Less Money 
When You Subscribe 

But on the newsstand — if you can locate the 
issue you want — you pay $30.00 a year ($2.50 
a copy). 

Special Offer — Subscribe for 2 years ($42.00) 
and get 30% off the single issue price. 



Subscribe to MICRO today. 



MICRO 

34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

Please send me MICRO for _ 1 year _ 2 years 
NOTE: Airmail subscriptions accepted for 1 year only. 



Subscription Rates Effective January 1, 1982 
Country Rate 



Check enclosed $_ 
Charge my 



. VISA account 

. Mastercard account 



No 

Expiration date . 

Name 

Address 



United States 

Foreign surface maif 

Europe (air) 

Mexico, Central America, Mid East, 

N. & C. Africa 
South Am., S. Afr., Far East, 

Australasia, New Zealand 



$24.00 1 yr. 
42.00 2 yr. 
27.00 
42.00 

48.00 

72.00 



* Airmail subscriptions accepted for only 1 year. 
For U.S. and Canadian 2-year rates, multiply by 2. 



City/State . 



-Zip 



Job Title: 



Type of Business/Industry: . 
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WE MAY HAVE ALREADY BUILT 

THE BOARD YOU ARE STARTING TO DESIGN! 

While you may not have heard of us before, you certainly know our customers: Fortune 500 companies, Universities 
and Government Agencies. Since 1976 we have been providing high quality microcomputer products, ranging from 
expansion boards, to stand-alone controllers, to complete systems. Before you start your next project, consider how 
easy it might be to use some of our products. 



FLEXI PLUS 



A multi-function controller which handles: 

• 8" and mini diskettes, double-sided, double-density 

• RS-232 Communications with programmable features 

• IEEE-488 instrumentation Bus fully implemented 

• 6809E Microprocessor, up to 56K RAM, ROM, EPROM 

• Parallel/Serial I/O, Cassettes and TTY interfaces 



This versatile controller may 
be used as an expansion board 
for any 6502 or 6809 system; 
as a stand-alone controller; 
or, as the basis of a complete 
microcomputer system. 



MICRO PLUS 



A video-oriented controller which includes: 

• Programmable display up to 132 columns by 30 rows 

• Programmable character sets in EPROM and RAM 

• Character and Bit-Mapped Graphics 

• ASCII Keyboard and Light Pen Interfaces 

• RS-232 Programmable Communications Interface 

• 6502 Microprocessor, up to 7K RAM, 2K EPROM 



This video controller may be 
used to expand almost any 
6502- or 6809-based system; or 
as a stand-alone intelligent 
terminal; or, as the basis for a 
complete 6502-based computer 
system. _^_ 




DRAM PLUS 



1 



A multi-purpose expansic 

• Up to 40K RAM memory with a memory manager 

• Up to 16K ROM or EPROM memory 

• EPROM Programmer for 2516, 2716, 2532 and 2732 

• Multiple parallel/serial I/O ports and timers/counters 

• Prototyping area for custom circuits 



This memory-oriented expansion 
board permits addressing of 
memory on 4K boundaries, sup- 
ports swapping of sections of 
memory, and works with most 
6502- or 6809-based systems. 






o 
c 
u 
s 




An Industrial quality system which features: 

• Two mini disk drives, double-sided, double-density 
for over 640K bytes of on-line storage 

• Commercial quality keyboard with numeric pad 

• Upper/lower case ASCII with programmable characters 
and display formats, plus bit-mapped graphics 

• High-resolution video monitor with green phosphor 

• Heavy-duty aluminum case for desk or rack mounting 

• RS-232 Communications built in; second optional 

• IEEE-488 may be added to existing boards 

• Includes 48K RAM, 4K EPROM, 6809 microprocessor 

This extremely versatile system may be used for system 
development, for developing stand-alone products, as an 
end-user system, as an in-house business computer, as a 
word processor, and much more. Software is available 
f ro m a n u m be r o f s u p p I i e r s a n d i n c I u d es com piled 
BASIC, PASCAL, FORTH and many complete application 
packages. 




$3495.00 






If you have a requirement which involves 6502- or 6809-based 
products, join the growing number of OEMs and System inte- 
gration Houses who look to us first. For additional information 
and our current product literature, please contact us at 
617/256-3649 or TELEX 955318 INTL DIV. 
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Apple R 

ADVANCED OPERATING SYSTEMS 

#9483 Apple-Aids 

#9482 Mostly Basic/Household 

#9481 Mostly Basic/ Interface-Scienttfic 

#9480 Voyage of the Valkyrie 

ARTSCI 

Basic Mailer 

Magic Window 

Magic Words 

AURORA 

#4801 Executive Secretary *32i"*I 

#4803 Gradebook SI'S 

#4804 Hebrew II ■ 5„ TI 

#481 1 Hebrew II - 22*11 

#4805 Quicktrace *43.»» 

AVALONHILL 

Major League Baseball $35.49 

North Atlantic Convoy (Cassette) $12.69 

Empire of the Overmind (Cassette) " 

Empire of the Overmind 

Tanktics 

BEAGLE BROS. 

Alpha Plot $34.69 

Dos Boss 3.3 $20.39 

Dos Boss 3.2 $26.39 

Game Pack #1 *??•" 

Game Pack #2 S^S.39 

Game Pack #3 * 20 /?? 

Game Pack #4 $26.39 

Tip Disk *«■••■ 

Utility City 

BLACKBURG 

Active Filter Design 

Electronics I 

Electronics II 

Electronics III 

Video Display Graphics 



#6061 
#6060 
#6062 



#2058 

#2052 
#2060 
#2059 
#2061 

#3257 
#3250 
#3255 
#3251 
#3252 
#3253 
#3254 
#3258 
#3256 



$26.89 
$26.89 
$35.89 

$59.49 
$84.99 
$62.89 



$25.49 
$29.69 
$24.59 



BRODERBUND 

958 Alien Ram 

960 Alien Typhoon 

967 Arcade Machine 

966 David's Midnight Magic 

952 Galactic Empire 

951 Galaxy Wars 

#2000 Genetic Drift 

957 Golden Mountain 

961 Payroll 

949 Red Alert 

965 Space Quarks 

964 Space Warnoi 

956 ~ 

955 

959 



$25.89 

$35.89 
$35.89 
$35.89 
$35.89 
$35.89 

$21.19 
$21.19 
$39.49 
$30.69 
$22.99 
$22.99 
$23.39 
$16.89 
$335.69 
$22.99 
$25.39 
$21.19 

Tank Command $12.99 

Tawala s Last Redoubt $23.39 

Track Attack $26.89 

HARDWARE 

#8035 Apple Clock (Mountain) $246.39 

#8200 Applesoft Renumber»and Merge in ROM 

(Soft Control) $33.89 

#8206 Applesoft Utility ROM (Soft Control) $33.89 

#747 B S R Control (Novation) $16.69 

#2107 Basic Compiler (Microsoft) $335.69 

#8205 Basic in ROM (Soft Control) $33.89 

#8039 Blitz Bug (Omni) $21.89 

#8025 C P S Pascal (Mountain) . $16.99 

#86 Cable Adaptor (Centronics) $33.19 

#24 Character Set Plus (Lazer) $22.39 

#6534 Cassette Control Device (Hartley) $67.93 

#9043 Data Link (Link) $87.99 

#217 DISASM/65 (Lazer) - - . $26.29 

#2362 Dithertizer il with Camera (Computer 

Station) - $639.99 

#8203 Dual DOS ROMS (Soft Control) $46.69 

#7951 E Z Port (Versa) $21.19 

#748 Expansion Mod (Novation) . $33.15 

#1476 Game Paddles (TG) $33.89 

#1070 Joyport (Sirius) $67.39 

# 1 2 Joystick (Mmnco) $39.95 

#322 Large Character Eprom (Videx) $34.29 

#27 LowerCase Adaptor Rev. 7 (Paymar) $29.99 

#9021 Memory Expansion Module (Prometheus) $148.69 

#8060 Micro Verier (ATV) $31.49 

*' - 49 Modem Handset (Novation) $24.65 

#6240 Paddle-Adapple (Southern California) $26.89 

#39 560G Paper Tiger (IDS) $1,225.00 

#8020 MX100 Ft. Printer (Epson) $749.00 

#725 Pro Paddle (Rainbow) ■ * 4 *-JJ"' 

#35 Ram Card (Microsoft) $169.00 

#16 16KRam Expansion Board (Andromeda) $169.00 

#325 Soft Switch (Videx) * 25 'il? 

#36 Z-80 Softcard (Microsoft) $299.00 

#860 Super Fan II (R.H. Electronics) J**"* 9 

#31 Swilchplate (Videx) $17.99 

#59 Vision SOCard (Vista) $297.49 

MICRO LAB 

#2253 Crown of Arthain $29.69 

#2250 Dogfight S. ii 

#2254 Mad Venture 5 1 

#2259 Palace in Thunderland *?!*!? 

#2263 Roach Hotel 



#239 

#235 
#234 
#233 



#204 
#203 
#201 
#202 



#834 
#823 
#822 
#825 
#824 
#832 



#285 
#276 
#280 

#273 
#277 



#302 
#301 
#308 
#307 

#306 
#304 
#311 



#385 
#384 
M83 
#382 
#381 



#409 
#408 
#407 
#403 
#406 
#401 
#404 
#405 
#412 
#400 



#761 

#763 

-.466 

#746 

#721 

#720 

#760 

#740 

#921 

#920 

f 76? 

#860 

#862 

#748 

#322 

#321 

#1000 

#900 

#567 

#568 

#561 

#562 

#461 

#800 



Atari 

ADVENTURE INTERNATIONAL 

Angle Worms $12.64 

Galactic Empire $16.74 

Lunar Lander $ 12.64 

Sunday Golf $12.64 

ARTSCI 

Cypher Bowl $43.94 

Gomoku (Cassette) $ 16.94 

Poker Solitaire $12.74 

Reversi $16.94 

ARTWORX 

Giant Sialom $17.54 

Intruder Alert (Cassette) $14.84 

Intruder Alert $18.34 

Rings of the Empire (Cassette) $14.84 

Rings of the Empire $18.34 

Stud Poker $16.64 



Blackjack 

Mailing List 

Missile Command . 
Space Invaders . . . 
Star Raiders 



ATARI 



Ti 
IB 
Ti 
15 
Ti 
i 
Ti 



IS 

15 
IS 

IS 
IS 

15 
IS 
15 

IS 
15 
IS 

IS 
15 
IS 
15 
IS 
15 
IS 
1 
Ti 
15 
IS 
15* 



$30.69 



$12.64 
$16.94 
$35.14 
$16.94 
$33.94 



$25.44 
$29.64 
$12.74 
$12.74 
$12.74 
$20.34 
$24.64 



$26.34 
$35.14 
$26.34 
$33.94 
$25.44 



$26.34 
$26.34 
$17.54 
$21.14 
$21.94 
$25.44 
$33.94 
$33.94 
$35.14 
$35.14 



AVALONHILL 

Empire Of the Overmind (Cassette) 

Empire of the Overmind 

North Atlantic Convoy (Cassette] 

Nuke War (Cassette) 

Planet Miners (Cassette) 

Tanktics (Cassette) 

Tanktics 

EDU-WARE 

Compu Math/Decimals iCassette) . 

Compu Math/Decimals 

Compu Math/Fractions (Cassette] 

Compu Math, Fractions 

Compu-Read 

EPYX 

Crush. Crumble & Chomp (Cassette i 
Crush. Crumble & Chomp . . 
Datestones of the Ryn ... 
Invasion Orion (Cassette) . 

invasion Orion 

Rescue at Rigel (Cassette) 
Star Warrior (Cassette) .... 

Star Warrior 

Temple of Apshai (Cassette) 
Temple of Apshai 

MISCELLANEOUS 

All Baba& the 40 Thieves (Quality) . . . $28.94 

Andromeda (Gebelii) $35.94 

Casino Blackiack (Manhattan) $21.94 

Concentration (Manhattan) $13.14 

Crossfire (On-Line) ... $26.94 

Dominoes (Cassette) (Creative Computing) . $10.44 

Galactic Chase (Cassette) (Spectrum) $21.94 

Galactic Chase (Spectrum) . . $26.34 

Gin Rummy 3.0 (Manhattan) $21.94 

Hail to the Chief (Creative Computing) $21.94 

Kayos (Cassette) (Computer Magic) $30.74 

Kayos (Computer Magic) $30.74 

Labyrinth Run (Manhattan) $13.14 

Match Racers (Gebelii) $26.34 

Pathfinder (Gebelii) $30.74 

Pool (Cassette) (Creative Computing) $10.44 

Safari (Cassette) (CDS) $25.44 

Salari (CDS) $33.94 

Shadow Hawk One (Horizon) $44.94 

Shattered Alliance (Strategic Simulations) .. $35.14 

Tank Trap (Cassette) (Quality) $10.14 

Tank Trap (Quality) $12.64 

Tan Trek (Cassette) (Quality) $10.14 

Tan Trek (Quality) $12.64 

The Wizard & The Princess (On-Line) $27.94 

Yahtman (Compu-Core) $17.54 



COMING SOON! 



Hodge Podge 
for the Atari® 

Call Toll-Free 800-344-5106 (outside California) 



Apple 



$25.39 

$52.99 

$33. 

$22.49 

$26. 

$35.89 

$25.39 



MISCELLANEOUS 

#2182 Adventure in Time (Phoenix) ... 

#2301 Apple World (USA) 

#7rl90 Applecillin (XPS) 

#3700 Asteroid Field (Cavalier) 

#2700 Astroscope (AGS) 

#2180 Birth of the Phoenix (Phoenix) 

#2407 Bishop s Square (Datasoft) 

#1601 Bloody Murder (Stoneware) $17. 

#3000 Bookkeeper (Delta) $76.39 

#3702 Bug Attack (Cavalier) $26.29 

#9700 Castles of Darkness (Logical) $30.69 

#3001 Checkwnter (Delta) $33. 

#9860 Chinese Lessons (CTI) $26.09 

#7851 Cosmo-Mission (Cosmos) $21.19 

#9241 The Count (Pear) $22.39 

#2752 Creative Financing (Howardsoft) $127.49 

Creature Venture (Highland) $21.19 

Cyborg (Sentient) . . . $28.99 

D B Master Version 3 (Stoneware) $194.59 



#2205 
#4401 
#1607 
#4250 
#7878 
#6080 
#3954 
#7852 
#3451 



Falcons (Piccadilly) . 

Financial Partner (Denver) 

Firebird (Gebelii) 

Form Letter (S. Sorcery) 

Hungry Boy (Cosmos] 

Interlude (Syntonic) .'. . 

Jabbertalky (Mind Toys) 

The Landlord (Mm Micro) . 

The Liberator iPear) 

Lisp Interpreter (Datasoft) 

Mailing List (S. Sorcery) 

The Manipulator (Pear) 

Market Analyzer (RTR Software] 

Market Charter i RTR Software i ... 
9100 Memory Page Editor (Compu-trom . 
9580 The Menu (C & H Video) 
9380 Menu Generator (Cranei 
1804 Monty Plays Monopoly i Visicorpj . . 
2211 Mummy s Curse (Highland] 

Oldoris Revenge [Highland) 

OO-Topost Sentient) 

Pascal Programmer (Denven 

Pascal Tutor [Denver) 

PornopolyiCCl) .... 

Pot of Gold I i Rainbow) 

Pot of Gold II iRambowi 

Real Estate Analyzer (Howardsoft] 

Rubik s Cube (Software Alternative! 

Russki Duck iGebellu 

Sargon II [Haydem . 

Sexoscope (AGS) 

Snack Attack (Datamost) 

Solitaire iComputek) 

Space Raiders iUSAj 

Star Dance (USA) 

Star Thief (Cavalien . . 

Star Venture [Compu-Thmgj 

Starship Commander (Voyagen 

Suicide (Piccadilly) 

Text Editor iS Sorcery) 

Thief (Datamostt 

Thunderbirds - GX iCosmosi ......... 

TrickshotilDSI) 

Utility Pak #1 (Stoneware) 

Visicaid (DataS. C i 

VisiCalc3.3(Visicorpi 

VisiFile iVisicorp) 

Vocanoes [Earlhwarei 

Zoom Grafix (Phoenix) 

Zork I (Infocom) . 

Zork II ilnfocomi 

SIRIUS 

058 Autobahn 

068 Beer Run . 

073 Borg 

074 Computer Foosbalf 

Copts & Robbers 

Cyber Strike 



#3150 
#9242 
#2406 
#3953 
#9240 
#4552 
#4550 



#2200 
#4400 
#7870 
#7871 
#7650 
#3484 
"3485 
#2751 
#5600 
#6081 
#1150 
#2701 
#8901 
#8520 
#2302 
#2306 
#3701 
#7163 
#9180 
#4251 
#3955 
#8901 
#7853 
#7102 
#1606 
#4100 
#1820 
#1805 
#9740 
#2181 
#7880 



1065 



#1056 
#1050 
#1072 

#1220 

#1216 
#1202 
#1210 



; Forest . 
Gamma Goblins 

Gorgon 

Hadron 

Pulsar II 

Snake Byte 

Sneakers 

Space Eggs 

Star Cruiser 

Twerps 

SYNERGISTIC 

Adventure to Atlantis 

Data Reporter . . . . . . ... 

Dungeon Campaign 
Escape IromArcturus 

The Linguist 

Odyssey 

Program Line Editor 

Wilderness Campaign 



riNC 



Post Office Box 1 297 
Corcoran, California 932 12 



We take MasterCard, American Express or VISA (Include card # and 
i registered trademark of Apple Computer, inc. expiration date). California residents add 6% tax. Include $2.00 for postage. 
Foreign and hardware extra. Foreign (excluding Canada): remit U.S. cur- 
rency, checks on U.S. banks, use listed charge cards, or make direct wire 
transfers through Security Pacific Bank, Corcoran, for a $6.00 charge. All 
overseas orders shipped by air. Send for free catalog. Prices subject to 
change without notice. 



Pet " is a registered trademark of Commodore. 
TRS-80 " is a registered trademark of Tandy Corp. 
Atari " is a registered trademark of Atari, Inc. 



Ti 
15 

I Ti 
15 

I Ti 
15 
Ti 
15 
Ti 
IS 
Ti 
IB 
Ti 
B 
Ti 
IB 
Ti 

Ti 

.69 nr 

5! Ti 

.49 ■ 

ii B 
Ti 
IB 
Ti 

IS 

Ti 

Ti 
IS 
Ti 
18 
Ti 
IS 



$25.39 

$220.49 
$25.39 
$26.99 
$21.19 
$16.99 
$26.29 

$649.99 
$26.89 

$106.19 
$44.89 
$31.39 

$224.99 

$110.39 
$44.89 
$26.29 
$35.09 
$31.99 
$36.39 
$16.89 
$27.99 

$105.99 

$105.99 
$25.39 
$33.89 
$33.89 

$127.49 
$16.89 
$31.39 
$29.79 
$36.49 
$25.39 
$25.39 
$25.39 
$21.89 
$25.39 
$26.89 
$35.89 
$26.29 
$58.39 
$25.39 
$2 
$35 
$2 
$29.69 

$199. 

$212.49 
$43.49 
$35, 
$33 
$33, 

$25.39 
$19.99 
$26.89 
$25.39 
$29.69 
$33.89 
$19.99 
$25.39 
$33.89 
$29.69 
$25.39 
$25.39 
$25.39 
$19.99 
$20.99 
$26.89 

$35.99 
$186.99 
$14.79 
$25.39 
$33.99 
$25.39 
$33.99 
$18.49 



J 



